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Prefacio 


Cuando la Timex Sinclair 1000 se comercializó en el 
verano de 1982, una barrera entre clases fue rota. Por 
primera vez, una computadora moderadamente potente 
era vendida, al por menor, a un precio inferior a los 
100 $. En adelante no podría mantenerse el argumento 
de que las computadoras eran solamente para ricos. Con 
la aparición de la T/S 1000, las computadoras llegarían 
al alcance de la mayoría de la población, incluyendo es- 
tudiantes. Casi de la noche a la mañana, el poder de las 
computadoras de las grandes instituciones, de los 
años 50, era introducido en las casas de «la gente». Ver- 
daderamente la T/S 1000 puede ser claramente denomi- 
nada (como lo era el Volkswagen) «la máquina de la 
gente corriente». 

Uno de los objetivos de este libro es satisfacer la de- 
manda, sin precedentes, de la gama de vídeo-juegos que 
han atraído la atención de millones de personas. El libro 
contiene veintiún juegos originales programados en el 
lenguaje BASIC versión T/S 1000. Estos juegos no sólo 
le permitirán divertirse a usted y a sus amigos, sino que 
también le darán la opción de conocer la lógica en la 
que están basados, mediante las explicaciones que 
acompañan a cada uno de los programas. Además de 
esto, nosotros también le sugerimos formas en las que 


usted fácilmente puede modificar los programas, a fin de 
hacerlos más personales y que se ajusten mejor a sus 
propios deseos. 

Se ha puesto mucho cuidado en que la forma de im- 
primir los programas sea lo más clara posible, y además 
ninguno de los programas requiere más de las 2K de 
memoria de acceso aleatorio (RAM) con que viene es- 
tructurada la computadora. A pesar de las restricciones 
impuestas por el tamaño de la memoria disponible, us- 
ted quedará sorprendido al ver la amplia gama de juegos 
que le será posible realizar. 

Para aquellos usuarios que hayan comprado la me- 
moria adicional de 16K, se dan sugerencias, al final de 
algunos capítulos, sobre la forma de mejorar los progra- 
mas y sacar rendimiento a la memoria extra. Para el 
beneficio de los principiantes, se dan instrucciones muy 
explícitas de cómo introducir los programas a través del 
teclado, de cómo editar, cómo ejecutar programas, 
cómo salvarlos en cinta magnetofónica, y cómo cargal 
los programas en la computadora desde la cinta. 

La tarea de escribir juegos para una computadora no 
es una tarea fácil. Es nuestro deseo el que, después de 
que usted haya tenido la oportunidad de familiarizarse 
con los programas, pueda también examinarlos deteni- 
damente y pueda extraer algunas sugerencias que le 
podrían ayudar a escribir los suyos propios. Esto es un 
desafío intelectual que no debiera de ser menospreciado. 
Cualquiera que sea la pericia adquirida en este esfuerzo 
se podrá poner al servicio directo de cualquier tipo de 
programación cualquiera que sea la disciplina: matemá- 
ticas, física, química, finanzas o ingeniería. 

Si este es su primer intento jugando juegos en una 
computadora, bienvenido, y mucha suerte. 


Yin Chiu 
Henry Mullish 
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Capítulo O 4/ COMENZAR 


e Cómo usar este libro 
e Puesta en marcha de la computadora 
e Indicaciones sobre el uso del teclado 


Aunque usted ya haya experimentado con la compu- 
tadora TIMEX/SINCLAIR 1000, sin embargo debería 
dedicar unos minutos a la lectura de este capítulo. La 
T/S 1000 es considerada singularmente potente si tene- 
mos en cuenta que no es una máquina cara, pero para 
obtener su máximo rendimiento usted debe de estar fa- 
miliarizado con su único dialecto del BASIC, siendo 
éste quizá el lenguaje de ordenador más ampliamente 
usado en el mundo. También debe de estar familiariza- 
do con las peculiaridades del teclado de la T/S 1000, 
que está organizado de tal forma que hace su manejo fá- 
cil y eficiente. 

Una breve lectura de los puntos que cubre este ca- 
pítulo, junto con las instrucciones que aparecen en el 
Manual de Usuario de la Timex que acompaña a su 
computadora, le permitirán ponerla en marcha e intro- 
ducir el primer programa en el espacio de una hora. 


Cómo usar este libro 


La parte central de este libro consta de veintiún jue- 
gos programados, presentando el listado del primer pro- 
grama en el capítulo 1 y el listado del vigésimo primero 
en el capítulo 21. Nosotros le recomendamos encareci- 
damente que profundice en los cuatro primeros progra- 
mas antes de seleccionar cualquier otro. Hacemos esta 
recomendación porque los cuatro primeros programas 
están comentados muy claramente y contienen explica- 
ciones de muchas de las convenciones tipográficas que 
usamos en este libro. En los listados de los programas 
que siguen al capítulo 4 ya se asume que usted domina 
el uso del teclado y por tanto aparecen menos anotacio- 
nes y más espaciadas. 

Cada capítulo de este libro comienza con una expli- 
cación del juego que usted obtendrá cuando ejecute el 
programa. Leyendo esta sección, denominada simple- 
mente «El juego», puede hacerse una idea clara de en 
qué consiste dicho juego. A continuación de la descrip- 
ción del juego aparece el listado del programa corres- 
pondiente y en los capítulos 1, 3 y 4 el listado viene 
seguido de «Notas sobre el uso del teclado», que tratan 
de enseñar al principiante cómo manejar el teclado de la 
T/S 1000. 

El capítulo 1 también contiene instrucciones sobre 
cómo editar un programa y cómo ejecutarlo. Ninguna 
de estas dos actividades es difícil de llevar a cabo, pero si 
usted nunca las ha realizado antes, debería de leer estas 
secciones con atención. 

Todos los capítulos contienen otras dos secciones 
adicionales: «Puntos de interés» y «Adaptaciones posi- 
bles». El material que recogen los «Puntos de interés» 
está proyectado como una explicación de la lógica que 
hay detrás de ciertas líneas o grupos de líneas dentro del 
programa. Si usted ya tiene un sólido conocimiento del 
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BASIC y desea analizar la lógica de los programas, en- 
tonces puede remitirse a estos «puntos». Si usted es to- 
talmente principiante, entonces estos «puntos» le serán 
algo menos útiles, pero estudiándolos en conjunción 
con el programa usted comenzará a tener una idea sobre 
cómo trabaja el BASIC. 

Las «Adaptaciones posibles», al final de cada capítu- 
lo, dan también instrucciones especificas sobre cómo 
alterar un programa (para el principiante absoluto) o 
sugieren formas de cómo adaptarlo a sus necesidades 
(para lectores más avanzados). Notar que algunas (aun- 
que no todas) de las adaptaciones requieren más de las 
2K RAM que trae la T/S 1000. Si usted no ha compra- 
do el paquete de expansión de 16K RAM, entonces no 
podrá llevar a cabo todas las modificaciones. 

El entender un programa es un serio desafío intelec- 
tual, pero a su vez puede ser muy divertido. Nosotros 
esperamos que usted usará las instrucciones dadas en 
este libro para componer, revisar, expandir y adaptar es- 
tos programas a sus necesidades. A no mucho tardar se 
dará cuenta de que ciertamente se está «introduciendo» 
en estos programas y de que en un sentido muy real, los 
está haciendo propios. 


Puesta en marcha de la computadora 


Las instrucciones para la puesta en marcha de la T/S 
1000 aparecen en el capítulo 1 del Manual de Usuario 
de la Timex (página 5). Dichas instrucciones son clara- 
mente específicas y usted no debería tener gran dificul- 
tad en seguirlas. Sin embargo, hemos encontrado que 
unos ligeros ajustes adicionales sobre la puesta en mar- 
cha pueden facilitarle el uso del sistema. 


1. El cable que conecta su computadora con la TV: 
El fabricante le ha proporcionado un cable de 4 pies 
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para conectar su computadora a la TV. Pero nosotros 
hemos observado que en términos de conveniencia y 
confort este cable es demasiado corto, por eso recomen- 
damos que se reemplace el cable de 4 pies por otro cable 
de 6 a 8 pies. (La mayoría de los almacenes de electrónica 
o de televisión y radio tienen dichos cables a la venta, y 
cada unidad no cuesta más que unos cientos de pesetas.) 


En la mayoría de los casos la T/S 1000 produce una 
imagen de TV con caracteres negros sobre fondo blanco, 
de forma que la pantalla queda bastante brillante. Con 
el cable de 4 pies proporcionado por el fabricante, noso- 
tros nos encontramos sentados casi encima de la panta- 
lla, y después de algunas horas de trabajo comenzamos a 
notar fatiga en los ojos y a sentir la necesidad de distan- 
ciarnos ligeramente de la pantalla. Con un cable más 
largo, fuimos capaces de mover la TV hacia el extremo 
más alejado de la mesa. En tal posición, encontramos 
que la imagen en la pantalla era aún perfectamente legi- 
ble, y, sin embargo, era ciertamente más descansada 
para nuestros ojos. 


2. El interruptor de canal situado en la parte inferior 
de la computadora: Cuando nosotros estábamos progra- 
mando o jugando algún juego en la T/S 1000, a veces, 
para permitir a otra persona que tomase el control, des- 
lizábamos la computadora por la mesa unos cuantos 
centímetros. Algunas veces, cuando estábamos haciendo 
esto, perdíamos la imagen de la pantalla por completo. 
Un pequeño trabajo de investigador nos dio la respues- 
ta: el interruptor de selección de canal situado en la 
parte inferior de la computadora se supone que tiene 
que estar en una oquedad en la máquina, pero en algu- 
nas de las computadoras con las que hemos tratado, la 
oquedad del interruptor no es lo suficientemente pro- 
funda. Como resultado de esto, el hecho de deslizar la 
computadora sobre una superficie puede hacer que el 
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interruptor nos pase de un canal a otro y habrá una pér- 
dida temporal de la imagen. Esto es algo que no nos 
debe preocupar. Simplemente, con un ligero toque sobre 
el selector para volver a la posición del canal adecuada, 
notará que la imagen vuelve a la pantalla sin perder 
nada de lo que ha sido grabado en la memoria. Si este 
problema molesta a su máquina, se puede considerar «el 
bloqueo» del interruptor de selección de canal fijándolo 
con un trozo de papel adhesivo. 


También hemos encontrado que la recomendación 
del fabricante sobre usar el canal 2 o el 3 indistintamen- 
te no parece ser siempre el mejor consejo. De las tres 
máquinas que nosotros probamos, dos de ellas trabaja- 
ron mejor en el canal 3 y la tercera trabajó mejor en el 
canal 2. Puesto que las tres máquinas fueron probadas 
en la ciudad de Nueva York, donde la filial local de la 
CBS-TV emite por el canal 2, supusimos que en el ca- 
nal 3 trabajaríamos mucho mejor. Pero esto no ocurrió 
así para dos de las tres máquinas que nosotros proba- 
mos. No podemos explicar este hecho, pero queremos 
que esté avisado de ello. 


3. Puesta en marcha de su grabadora: Para salvar y 
cargar programas, hemos observado que lo mejor es 
mantener el control de «volumen» de la grabadora a o 
cerca de su punto mínimo, como se menciona en el 
Manual de Usuario de la Timex. Similarmente, hemos 
obtenido los mejores resultados salvando y cargando 
cuando manteníamos el control de «tono» en su punto 
más alto —hacia los «agudos» mejor que los «bajos»—. 
Además, si su grabadora tiene los dos modos «mono» y 
«stereo», póngala en modo «mono». Si sólo tiene modo 
«stereo», entonces se debería de girar el control del «ba- 
lance» totalmente a la izquierda o totalmente a la cere- 
cha y dejarlo así tanto para cargar des”'2 la grabadora 
como para salvar programas en la misma. 
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El Manual de Usuario de la Timex contiene tam- 
bién una muy inteligente sugerencia sobre cómo alma- 
cenar programas de forma que sean fáciles de encontrar: 
ver página 14 del manual sobre cómo insertar una voz 
de anuncio para que preceda a cada uno de los progra- 
mas que usted grabe en la cinta. Sin embargo, asegúrese 
de desconectar el micrófono antes de salvar el programa 
actual desde la computadora a la cinta. 

Tres puntos más: Primero, hemos encontrado que 
compensa usar una cinta de grabación que sea clara- 
mente de alta calidad. Segundo, es una buena idea hacer 
una copia de seguridad de cada programa, preferente- 
mente en otra cinta completamente diferente. Y, ter- 
cero, los programas se deberían de grabar sólo sobre un 
único lado de la cinta, ya que, si son usados ambos la- 
dos, entonces las señales de un lado pueden interferir 
con las del otro. 


4. Quizá la mayor deficiencia de la T/S 1000 es su 
teclado. A menos que sus manos sean del tamaño de las 
de Elliot o de las de E. T., tendrá que tener gran cuidado 
para presionar la tecla correcta. 

Para un máximo confort, conveniencia y precisión 
del teclado, mantenga éste bien iluminado y (como ya 
hemos mencionado) sitúese a una buena distancia de esa 
deslumbrante pantalla. Con pocos minutos de práctica, 
encontrará que el teclado es manejable. 


Indicaciones sobre el uso del teclado 


Si usted hasta ahora no ha tenido experiencia alguna 
con el teclado de la T/S 1000, debería de leer con aten- 
ción esta sección. Según la lee, puede, si lo desea, con- 
sultar la ilustración del teclado en el Apéndice C al final 
de este libro. 


1. Cuando teclee el número 1, esté seguro de pulsar 
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la tecla del 1 y no la de la L. La tecla del 1 está situada 
en el extremo izquierdo de la fila superior del teclado. 


2. No confunda el número 0 con la letra O. En los 
listados de los programas en este libro y en la pantalla 
de su TV, notará que el cero está impreso con un trazo 
oblicuo como: 0. 


3. La letra I y el número 1 también le pueden pare- 
cer semejantes cuando lea los listados de los programas, 
pero asegúrese de distinguirlos. La letra I es mostrada en 
los programas en la forma: |. El número 1 es listado en 
los programas como: 1. 


4. En algunos de los programas hacemos uso de una 
línea de subrayado (_) para indicar que se debería de 
dejar un espacio (pulsando la tecla SPACE). No intente 
buscar la tecla de subrayado, ya que no existe en el te- 
clado T/S 1000. En los listados de programas hacemos 
uso de este signo sólo en los entrecomillados, ya que en 
ellos la inserción correcta de los espacios puede ser cru- 
cial. 

5. En este libro, los únicos símbolos de comillas que 
utilizamos son los localizados en la tecla P. (En ninguno 
de nuestros veintiún programas se deberían de usar las 
otras comillas, localizadas en la tecla Q.) 


6. Todas las palabras que aparecen en letra NEGRI- 
LLA en los listados de los programas son denominadas 
palabras clave. A cada una de estas palabras se accede 
con una única pulsación. Si se intenta introducir una de 
estas palabras letra-a-letra, puede ocurrir que la compu- 
tadora no las acepte, o bien que el programa no corra 
correctamente. Por tanto, para cualquier palabra que 
se encuentre en los listados en letra negrilla, asegúrese 
de acceder a ella con una única pulsación. (Una lista de 
las palabras clave del T/S 1000, así como la forma de 
acceder a ellas, está contenido en el Apéndice A al final 
de este libro.) 
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7. También se accede con una sola pulsación a los 
siguientes símbolos matemáticos: 


<> 
A 


RÁ 


que significa «no igual a» y se encuentra en la 
tecla de la T. 

que significa «mayor o igual que» y se encuen- 
tra en la tecla de la Y. 

que significa «menor o igual que» y se encuen- 
tra en la tecla de la R. 


8. Tener siempre presente que cualquiera de las te- 
clas que aparecen en el teclado T/S 1000 pueden tener 
hasta cinco significados, dependiendo del modo en el 
que se encuentre. El modo está indicado por un cursor 
como sigue: 


que indica el modo palabra clave. Desde este 
modo, usted accederá a la palabra impresa en 
blanco en la parte superior de la tecla. 

que indica el modo literal. Desde este modo, us- 
ted accederá al carácter «primario» (en negro) 
que aparece en la tecla. 

que indica el modo función. Desde este modo, 
usted accederá a la palabra impresa en blanco 
en la parte inferior de la tecla. 

que indica modo gráfico. Si se pulsa una tecla 
desde este modo, el carácter «primario» (en ne- 
gro) aparecerá en víideo-inverso. (Esto significa 
que el carácter aparecerá en la pantalla como 
una letra o número en blanco impreso sobre un 
pequeño cuadro de fondo negro.) Si se mantiene 
pulsada la tecla SHIFT mientras se está en el 
modo gráfico, se podrá acceder a los pequeños 
símbolos gráficos que aparecen en la esquina in- 
ferior derecha de algunas de las teclas. Tanto 
para tener una lista de estos símbolos gráficos 
como para conocer el modo de acceder a ellos, 
ver Apéndice B al final de este libro. 
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Capítulo 1 «COPY C47» 
(Mono de Imitación) 


El juego 

Programa 1: «COPY CAT» (Mono de Imitación) 
Notas sobre el uso del teclado 

La edición del programa 

Ejecutando el programa 

Puntos de interés 

Adaptaciones posibles 


El primer juego que presentaremos es el llamado 
«Copy Cat». Hemos decidido presentarlo el primero, no 
porque sea el más interesante de los juegos de este libro, 
sino por ser uno de los programas más fáciles de enten- 
der. Tanto si usted es un principiante programando 
como si es un experto en ello, la oportunidad es buena 
para que extraiga mucha de la útil información que pre- 
sentamos en nuestra discusión paso-a-paso sobre este 
programa. 


El juego 


El objeto del «Copy Cat» es teclear la letra que apa- 
rece en el medio de la pantalla tan rápido como sea po- 
sible después de que haya sido mostrada. Si tiene éxito y 


teclea la letra correctamente en el período de tiempo 
destinado para ello, un punto será sumado a su marca- 
dor automáticamente. Entonces su marcador es mostra- 
do en la parte inferior de la pantalla, después de lo cual 
se presenta la siguiente letra. No obstante, el tiempo 
permitido para responder después de cada sucesivo in- 
tento va acortándose. Tan pronto como usted cometa 
un error al contestar o se tome más tiempo del permiti- 
do para responder, el juego se dará por concluido, in- 
dicándole la letra no acertada y el total de puntos con- 
seguido. 

Lo que sigue es un listado del programa. Tómese 
ahora unos minutos en echarle una ojeada y después 
siga las instrucciones detalladas paso-a-paso que apare- 
cen justo a continuación del listado del programa. En 
pocos minutos se encontrará que está en el buen camino 
para llegar a ser un experimentado operador del teclado 
T/S 1000. 


Programa 1: «COPY CAT» (Mono de Imitación) 
100 LET X$="ASDFGHJKL” 
105 LETT=0 
110 LET N=0 


Ver las notas sobre 
el uso del teclado 
que comienzan en 
la página 11. 
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120 PRINTAT 3, 12:"(eleyg" 
125 LET YS=XS$(INT (RND*9+1)) 
130 LET N=N+1 

140 PRINTAT 11,15:Y8 
150 PAUSE 150-N 

160 PRINTAT 11,15:"_" 
170 IF INKEYS=Y$ THEN GOTO 200 

180 PRINT AT 19,5:"HA_FALLADO;_ERA_(".Y$;")" 
190 STOP 

200 LETT=T+1 

210 PRINTAT 21,15:T 

220 GOTO 125 


Lo que aparece en- 
tre comillas indica 
un espacio. 


Notas sobre el uso del teclado 


Hay una copia disponible del programa «COPY 
CAT» al final de este libro. Puede arrancarla y escribir 
sobre ella sus propias notas según sigue los siguientes 
pasos: 


l. Encienda la computadora y asegúrese de que el 
cursor lM aparece en la esquina inferior izquierda de la 
pantalla de la TV. 


2. Como probablemente estará enterado, todas las 
sentencias BASIC comienzan con un número de línea o 
sentencia. Como hemos asignado arbitrariamente el nú- 
mero de línea 100 a la primera línea del programa, te- 
clee el 100. Observará que el cursor LY permanece en la 
pantalla después de que el 100 ha sido introducido. 


3. Después del número de sentencia o línea 100, se 
necesita teclear la palabra clave LET, que aparece im- 
presa en letra negrilla en el listado del programa de este 


«COPY CAT» (MONO DE IMITACION) 11 


libro. La letra negrilla en el listado indica, como se 
aprendió en el capítulo 0, que la palabra en cuestión 
debería ser introducida con una única pulsación, y no 
letra-a-letra. Como usted está en el modo 1, puede ac- 
ceder a la palabra clave LET simplemente pulsando la 
tecla de la L, después de esto el cursor [M aparecerá auto- 
máticamente. 


4. Ahora teclee la letra X, localizada cerca de la es- 
quina izquierda dela fila inferior de las teclas. 


5. Ahora se necesita pulsar el símbolo $. Nótese 
que $ está impreso en rojo en la parte superior en la te- 
cla de la U; a este símbolo, por tanto, se accede usando 
la tecla SHIFT, que está en el extremo izquierdo de la 
fila inferior de las teclas. Con un dedo mantenga presio- 
nada la tecla SHIFT, y, al mismo tiempo, con un dedo 
de la otra mano presione la. tecla de la U. Esta operación 
debe ser realizada simultáneamente. Si se presionan las 
teclas en sucesión, no funcionará —deben ser presiona- 
das al mismo tiempo—. Indicaremos que en las siguien- 
tes páginas esta característica de doble-tecla la escribi- 
remos como, por ejemplo, “shifted-U”. 


6. El siguiente símbolo necesitado es el signo igual, 
=, que se encuentra en la tecla de la L. Notará que tam- 
bién está impreso en rojo, y así una vez más la tecla 
SHIFT debe de ser usada. Recuerde mantener presiona- 
da la tecla SHIFT mientras que usted presiona la tecla 
de la L. 


7. El signo de doble comilla, ””, también está impre- 
so en rojo; o sea, que también se debe de acceder a él 
usando la tecla SHIFT. (Para cuando haya introducido 
este corto programa debería de haberse convertido en un 
experto en la tecla SHIFT.) Asegúrese de usar el signo 
de doble comilla que está en la tecla de la P y no el sig- 
no de pareja doble comilla de la tecla Q. 
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8. Ahora introducir la secuencia de letras 
ASDFGHJKL seguida del signo de cerrar dobles comi- 
llas (“shifted-P”). Para enviar la línea completa a la 
computadora debe presionar a continuación la tecla 
ENTER. Si ha tecleado todo correctamente, la línea 
será trasladada a la parte superior de la pantalla apare- 
ciendo el cursor Ba continuación de la línea número 
100. (Este símbolo en vídeo inverso es usado en la 
computadora como un cursor de edición, sobre el que 
tendremos algo que decir más adelante.) Si no se ha te- 
cleado la línea correctamente, el cursor B], que indica 
error sintáctico, puede aparecer al final de la línea. En 
ese caso el sistema de chequeo que lleva incorporado la 
T/S 1000 no aceptará la línea, y ésta no se moverá hacia 
la parte superior de la pantalla cuando usted presione la 
tecla ENTER. En este punto lo mejor que puede hacer 
es presionar el DELETE (“shifted-0”) tantas veces como 
sea necesario para eliminar la línea y entonces puede 
comenzar de nuevo. 


9. Las líneas 105 y 110 son directas —son llamadas 
sentencias de asignación—. Ellas sencillamente asignan 
valores a la variable especificada en la parte izquierda 
del signo igual. Teclee e introduzca cada una de ellas en 
el listado presionando la tecla ENTER. De nuevo, cada 
línea que sea introducida se irá moviendo hacia la parte 
superior de la pantalla. En la línea 120, a la palabra cla- 
ve PRINT se accede presionando la letra P mientras 
usted se mantiene aún en el modo (4. Lo siguiente es la 
palabra clave AT, que aparece en la parte inferior de la 
tecla C. Esto significa que es una función, y que sólo po- 
drá ser introducida desde el modo función. Para lograr 
entrar en dicho modo, presionar la tecla SHIFT y la te- 
cla ENTER simultáneamente. Una vez hecho esto, el 
cursor MM cambia al cursor ÍA, lo cual significa que ahora 
se está en el modo función. Cuando se presiona la te- 
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cla C desde el modo [d, la palabra AT aparece en la 
pantalla a continuación de la palabra PRINT, y tam- 
bién notará que el cursor IM ha vuelto a la pantalla. 


10. Ahora introduzca el número 3, seguido por una 
coma, después el número 12, seguido en este orden por 
un punto y coma y por el signo de abrir comillas. Note 
que las dos siguientes palabras que aparecen en el lista- 
do, COPY y CAT, están en vídeo inverso. Para lograr 
este efecto todo ló que se necesita hacer es pasar la 
computadora a modo gráfico. Para pasarla a dicho 
modo presionar simplemente “shifted-9”. Lo cual hace 
que aparezca el cursor [8. Ahora teclee las palabras 
COPY y CAT con un espacio entre ellas. 


11. Para salir del modo gráfico una vez que se ha in- 
troducido COPY y CAT en vídeo inverso, puede o bien 
pulsar “shifted-9”? de nuevo o bien “shifted-ENTER?. 
Esto le permitirá introducir el cerrar comillas cuando 
reaparezca el cursor 1, 


12. Una vez que se ha enviado la línea 120 a la parte 
superior de la pantalla presionando la tecla ENTER, ya 
se está listo para entrar en la línea 125. Notar que para 
conseguir introducir INT y RND, se debe de estar en el 
modo función. Esto significa que deberá de acceder por 
dos veces al cursor ll usando el “shifted-ENTER” para 
cada una de estas palabras. 


13. Las líneas 130, 140 y 150 son bastante directas. 
Teclee cada una de ellas y pulse ENTER a continua- 
ción. En la línea 160, asegúrese de usar el “shifted-P” 
para acceder al signo de la doble comilla (””); dicho signo 
lo pulsará por dos veces, pero dejando un espacio en 
blanco entre ambos, como es indicado por el signo de 
subrayado. No intente buscar la tecla de subrayado, ya 
que no existe en el teclado. Su único propósito es indi- 
car un espacio en blanco. 
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14. La línea 170 no es difícil. Notar, sin embargo, 
que a la palabra clave THEN se puede acceder desde el 
modo |M simplemente pulsando “shifted-3”. También nó- 
tese que después de introducir el THEN, el cursor 
reaparece, haciendo que el introducir la palabra siguien- 
te, GOTO, sea sencillo: simplemente pulsar la tecla de 
la G. 


15. Una vez que se haya introducido la línea 170, 
tómese un momento, pare y examine la forma en que la 
línea 180 aparece en el listado de este libro: fíjese en las 
cuatro pequeñas líneas o «subrayados» que aparecen 
dentro del entrecomillado en el final de la línea: 


180 PRINT AT 19,5;"HA_FALLADO;_ERA_(":Y$")” 


Estas líneas de subrayado no pueden, como ya discu- 
timos en el capítulo 0, ser localizadas en su teclado 
T/S 1000. Su único propósito aquí es indicar cuándo y 
dónde se debería de pulsar la tecla SPACE, siempre que 
se esté introduciendo un texto entrecomillado. Recuerde 
que lo que usted está tecleando entre las comillas es lla- 
mado un «literal», y que el introducir el número correc- 
to de espacios en las posiciones correctas es a menudo 
crucial en los literales. 


16. Si usted ha continuado y ya ha introducido la lí- 
nea 180, ya habrá notado que hay bastantes diferencias 
entre el listado de este libro y lo que usted ve en la pan- 
talla. Primero, déjenos volver a mirar el listado tal y 
como aparece en este libro: 


180 PRINT AT 19,5;"HA_FALLADO;_ERA_(":YS;")” 


Sin embargo, la línea que usted tecleó, aparecerá en 
su pantalla como sigue: 


180 PRINTAT 19,5;”"HA FALLADO; ERA (";Y$”)” 
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Obviamente, los signos de subrayado que aparecen 
en el listado no aparecen en la línea que tenemos en la 
pantalla. (Ver nota 15.) Además de esto, notará, sin em- 
bargo, que la T/S 1000 traslada automáticamente la le- 
tra T de la palabra IT a una «nueva» línea en la panta- 
lla. [En este momento, la T está aún en la línea 180, por 
eso llamamos a esta «nueva» línea una «vuelta (turno- 
ver)».] Cuando se pulsa la tecla ENTER y se envía esta 
línea a la parte superior de la pantalla, usted verá aún 
otro cambio, como el siguiente: 


180 PRINTAT 19,5;"HA FALLADO; ERA ("¡Y$")” 


Ahora la I de IT ha sido trasladada a la «Vuelta» para 
juntarse a su acompañante T. Esto ocurre después de 
pulsar la tecla ENTER porque la T/S 1000 ha traslada- 
do automáticamente toda la sentencia número 180 un 
espacio hacia la derecha por si usted desea añadir algu- 
na línea de programa numerada con el 1000 o más. 
Todo esto no tiene gran importancia por sí solo, pero es 
importante recordar lo que dijimos en el capítulo 0: los 
listados de programas en este libro pueden mostrar lí- 
neas de sentencias escritas de una forma algo diferente 
de lo que usted ve en la pantalla. Esto es algo por lo que 
no debe de preocuparse, siempre que haya puesto gran 
cuidado y haya introducido los espacios apropiados en 
los literales. (Y, por supuesto, no haya cometido ningún 
error al teclear los otros números, letras y símbolos.) 


17. Las líneas 190, 200, 210 y 220 son simples, y 
por ahora no debería de tener demasiada dificultad con 
ellas. Por tanto, introduzca cada una de ellas y pulse la 
tecla ENTER a continuación de cada una, y ya estará 
listo para... ¡EDITAR! Estamos seguros que estará an- 
sioso por comenzar a ejecutar el juego, pero si se toma 
unos minutos en rechequear su trabajo realizado hasta 
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aquí, le aseguramos que se ahorrará un montón de tra- 
bajo en el futuro. 


La edición del programa 


Suponga que mientras estaba introduciendo una lí- 
nea usted cometió un error. Puede asegurarse que esto le 
ocurre a todo programador, no es cuestión de cuán inte- 
ligente o cuidadoso/a sea. Por tanto, cuando esto le ocu- 
rra (notar que no dijimos si esto le ocurre), no se asuste 
—<s lo normal. 

Si se ha olvidado completamente de introducir una 
línea, puede sencillamente teclear esa línea sobre la par- 
te inferior de la pantalla y presionar la tecla ENTER. 
Automáticamente se insertará por sí sola en su lugar co- 
rrecto dentro del programa. También se puede «rete- 
clear» una línea que ha sido introducida incorrectamen- 
te; cuando usted pulse la tecla ENTER para introducir 
esta línea «retecleada», automáticamente «choca» y sus- 
tituye la línea incorrecta del programa. 

Si cuando está tecleando un carácter se da cuenta in- 
mediatamente de que ha pulsado una tecla errónea, la 
tecla DELETE (“shifted-0”) le borrará el último carácter 
o palabra clave pulsada y reposicionará el cursor en la 
localización anterior. Esto le permite teclear de nuevo el 
carácter correcto. El original desaparece para siempre, y 
nadie sabrá de su error. 

Suponer, sin embargo, que una línea ya ha sido in- 
troducida en el listado y ahora decide que quiere cam- 
biarla de alguna forma. Si la línea que deseamos modi- 
ficar es la línea de trabajo (el cursor BW marca cuál es 
la línea de trabajo), entonces pulse la tecla EDIT (“shif- 
ted-1”). Esto hará que una copia de la línea sea llevada a 
la parte inferior de la pantalla y de esta forma ya puede 
ser modificada. Si la línea que se desea modificar no tie- 
ne el cursor apuntándola, entonces simplemente pulsar 
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LIST, después el número de la línea y ENTER. Esto 
hará que la línea deseada pase a la parte superior de la 
pantalla con el cursor Ma su lado. Ahora ya es la línea 
de «trabajo» y puede desplazarla a la parte inferior pul- 
sando la tecla EDIT (“shifted-1”). Una vez que la línea 
está en la parte inferior de la pantalla y lista para ser 
editada, puede teclear “shifted-8”. Esto provoca el movi- 
miento del cursor hacia la derecha ('shifted-5” mueve el 
cursor hacia la izquierda). Sitúese en la posición adecua- 
da y haga los cambios deseados. Entonces, en el mo- 
mento en que la tecla ENTER sea pulsada, la línea edi- 
tada vuelve a su posición correcta dentro del programa. 


Ejecutando el programa 


Ahora la mayor parte del trabajo ha sido realizado y 
es el momento de ejecutar el programa. Haga un último 
chequeo del programa en su pantalla, compárelo deteni- 
damente con el listado del libro. Si ellos concuerdan, 
pulse la tecla de la R, que desde el modo W hace que el 
comando RUN aparezca en pantalla. Entonces, pul- 
sando la tecla ENTER, comenzará a ejecutarse el pro- 
grama. 

¡Diviértase!, y si el «COPY CAT» le divierte tanto 
como para desear salvarlo, vaya al capítulo 22 de este 
libro, «Como salvar sus programas en una cinta magne- 
tofónica». 


Puntos de interés 


Línea 100: El conjunto de letras, del cual la compu- 
tadora elige de forma aleatoria una, está compuesta por 
A,S, D, F, G, H, J, K y L. Notará que éstas son las letras 
localizadas en la tercera fila del teclado de su computa- 
dora. Si ahora mira al listado del Programa 1, observará 
que estas nueve letras están asignadas a la variable cade- 
na XS$. 
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Líneas 105 y 110: Estas líneas ponen a O el contador 
T (que contabiliza el total de puntos) y al contador N 
(para el número de imágenes que se usarán en el meca- 
nismo de cronometraje de la computadora). 


Línea 120: Esta línea utiliza dos características muy 
comúnmente encontradas en programas de juegos. La 
primera de estas características es la instrucción PRINT 
AT. Esta instrucción permite que lo que aparece a con- 
tinuación y entre comillas será mostrado en la pantalla 
en un punto específico, como en el siguiente ejemplo to- 
mado de nuestro programa: 


120 PRINT AT 3,12; "(AOL AAMOYN " 


El 3 indica que la primera letra del literal aparecerá 
en un punto de la tercera línea contando desde la parte 
superior de la pantalla. El 12 indica que la primera letra 
del literal aparecerá a 12 espacios del eje extremo- 
izquierdo de la pantalla. La segunda característica utili- 
zada en la línea 120 y en muchos otros programas de 
juegos es la función vídeo inversa, que ilumina letras en 
blanco sobre fondo negro; por tanto, las hace destacar de 
otro material mostrado en la pantalla. 


Línea 125: Esta línea selecciona una de las nueve le- 
tras usando la función «al azar» (RND) que trae imple- 
mentada la T/S 1000. La letra seleccionada al azar es 
almacenada en la variable cadena denominada Y*$. 


Línea 130: El contador de imágenes (donde 1 imagen 
dura aproximadamente 0,02 segundos) es incrementado 
en 1 en esta línea. 


Línea 150: Esta línea contiene una PAUSE, la cual 
para de forma temporal la ejecución del programa para 
un número especifico de imágenes. (De nuevo, hay alre- 
dedor de 50 imágenes por segundo.) Esto tiene el efecto 
de «congelan» la imagen durante el período especificado, 


«COPY CAT» (MONO DE IMITACION) 19 


permitiendo a la persona que mira a la pantalla leer lo 
que en ella aparece. En este punto, el pulsar cualquier 
tecla interrumpe el efecto de la PAUSE y permite que 
el programa reanude su ejecución. 


Línea 160: Un carácter blanco es sobreimpreso enci- 
ma de la letra mostrada en pantalla, a fin de lograr el 
efecto de que la letra mostrada esté «parpadeando» en la 
pantalla durante un período de tiempo limitado. 


Línea 170: Si en la línea 170 se verifica que la res- 
puesta concuerda con la mostrada en la pantalla, enton- 
ces el control se pasa a la línea 200, donde el contador 
total se incrementa en un punto. Este contador es enton- 
ces mostrado para la utilidad del jugador, y la siguiente 
ronda se inicia automáticamente. Sin embargo, si la le- 
tra pulsada era incorrecta o si no era pulsada a tiempo, 
el mensaje YOU MISSED; IT WAS... es mostrado y el 
programa termina. 


Adaptaciones posibles 


1. Observar que para cada intento acertado, un l es 
sumado a N en la línea 130. Esto afecta a la longitud 
de la pausa en la línea 150 ya que se especifica una 
duración de 150-N. Si piensa en esto detenidamente, se 
dará cuenta de que según crece el valor de N, hace de- 
crecer el valor de la expresión y, por tanto, acorta la 
PAUSE. 


2. La cadena entrecomillada en la línea 100 puede, 
por supuesto, cambiarse por cualquier otro conjunto de 
9 caracteres que usted mismo podría elegir. 
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Capítulo 2 4/ 424fR 


e El juego 

e Programa 2: AL AZAR 
e Puntos de interés 

e Adaptaciones posibles 


El juego 


Este programa hace que la computadora genere un 
número al azar entre el O y el 100. El usuario es invitado 
a adivinar este número en el menor número posible de 
intentos. En este juego la computadora siempre muestra 
un límite inferior y un límite superior, entre los cuales 
está el número buscado. Inicialmente, se muestra: 


d<=X<=100 


donde el 0 es el límite inferior y el 100 es el límite supe- 
rior. Por cada intento de adivinanza realizado, aparece- 
rá un cuadradito sobre la parte inferior de la pantalla. 
Tan pronto como un número, como intento de adivi- 
nanza, es introducido, se produce una comprobación 
para determinar si dicho número coincide con el núme- 
ro aleatoriamente seleccionado por la computadora. 
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Permítanos asumir que el número seleccionado al azar 
por la computadora es el 38 y el jugador incorrectamen- 
te intenta con el 76. La computadora ajusta en conse- 
cuencia los límites ya mostrados y sacará en pantalla los 
nuevos límites como sigue: 


D<=X<=76 


lo cual le indica que el número que había elegido era de- 
masiado alto y que ahora debería limitar el rango de su 
elección a un número que esté entre el O y el 76. 

Si su elección es correcta, entonces le es mostrado un 
mensaje indicándole el número de intentos que ha reali- 
zado y el juego termina con una imagen del siguiente 
estilo: 


38==38==38 
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Esto permanece en la pantalla durante unos cuantos 
segundos (durante dicho tiempo uno puede felicitarse a 
sí mismo) y la computadora entonces selecciona otro 
número para la siguiente ronda. Si se desea parar el jue- 
go en cualquier momento, simplemente introduzca 
STOP y después pulse la tecla ENTER. 


Programa 2: AL AZAR 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


260 
270 
280 


LET G=0 
LET X=INT (RND*101) 

LET L=0 

LETH=100 

PRINT AT 3,8;"ADIVINE_MI_NUMERO” 
PRINTAT 11,9:L:"_<=X_<=_"H:"__" 
INPUT N 


Observe. Que es la 
letra | que es igual 


LET G=G+1 a 1. Ver también lí- 
FOR |=1TO G ica 

PLOT (G-1)*3+1,0 

NEXT | 


IFN=X THEN GOTO 250 
IFN<XAND N > LTHEN LET L=N 
IFN>XAND N < H THEN LET H=N 
GOTO 150 

PRINT AT 15,5;"LO_ADIVINO_EN_”:G; 
“_INTENTOS” 

LET L=X 

LET H=X 

PRINT AT 11,9/L;"_==_":X;"_==_":H; 


” ”n 


AL AZAR 
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290 PAUSE 150 
300 CLS 
310 GOTO 100 


Puntos de interés 


Línea 110: Esta línea genera un número al azar entre 
el O yel 100. 


Líneas 140 y 150: Estas líneas muestran en pantalla 
la información sobre lo que tiene que hacer el usuario. 


Línea 160: Esta línea acepta el número pensado por 
el usuario. 


Líneas 170-200: Estas delinean los puntos cuadrados 
en la parte inferior de la pantalla, indicando el número 
de intentos realizados. 

Líneas 210-230: Comparan el número dado por el 
usuario, para intentar acertar, con el número seleccio- 
nado al azar por la computadora. 


Líneas 250-280: Estas líneas muestran el resultado si 
el intento es correcto. 


Adaptaciones posibles 


Se puede cambiar el rango de los posibles números 
que va de O a 100. Se podría generar un rango menor, 
por ejemplo, de O a 10, para ello basta modificar las lí- 
neas 110 y 130 de la siguiente forma: 


110 LETX=INT(RND*11) 
130 LET H=10 
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Capítulo 3 L45 PUERTAS 


El juego 

Programa 3: «LAS PUERTAS» 
Notas sobre el uso del teclado 
Puntos de interés 

Adaptaciones posibles 


El juego 


«Las puertas» es una prueba no sólo de su destreza 
física, sino también de su sentido del tiempo. Se enfren- 
tará con un par de puertas que continuamente se abren 
y se cierran. La idea del juego es disparar una bala (en 
forma de la letra X) a través de la apertura que queda 
entre las puertas en el instante en que están casi juntas, 
sin que aún se hayan cerrado. Si dispara cuando entre 
las puertas hay un amplio espacio, por estar casi total- 
mente abiertas, o cuando están cerradas, entonces pier- 
de el punto. 

Para disparar la bala, se puede pulsar cualquier tecla 
del teclado. Si tiene éxito, verá que la bala, lanzada des- 
de la parte inferior de la pantalla, atraviesa la apertura 
de la puerta. Cada intento acertado le aumenta en 100 
puntos el total de su contador. Para cada intento fallido, 
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1.4 


LA 


perderá 100 puntos. Mientras vaya acertando, el juego 
continúa. Probablemente, fallará en algún momento, y 
tan pronto como su contador baje por debajo de — 100, 
el juego se termina. 


Programa 3: «LAS PUERTAS» 


00 LET 1-12 De nuevo, esta es la le- 
105 LET P=0 tra | que es igual a 12. 

Ver también las líneas 
110 LETJ=15 200, 210, 220, 230. 
120 LET K=J 


130 FOR T=1 TO 6 

135 IFT>3 THEN GOTO 170 
140 LET J=J-1 

150 LET K=K+1 


26 CAPITULO 3 


160 GOTO 200 

170 LETJ=J+1 

180 LET K=K-1 

200 PRINTAT JM" 

210 PRINT AT ¡kW 

215 IFINKEYS< >""THEN GOSUB 300 
220 PRINTATI1J:”_" 

230 PRINTATI1K;"_” 

240 NEXT T 

250 GOTO 130 

300 IFJ<> 14 THEN GOTO 400 
305 FOR L=19 TO 2 STEP-1 
310 PRINTATL,15;"X" 

315 PRINTATL,15;"_" 

317 NEXT L 

320 LET P=P+100 

330 PRINTAT 21,13:P:"___” 
345 IFP<-100 THEN STOP 
350 RETURN 

400 LETP=P-100 

410 GOTO 330 


Notas sobre el uso del teclado 


1. Fíjese en el símbolo M como literal al final de la 
línea 100. A dicho símbolo se accede primeramente en- 
trando en el modo [É. (Para entrar en el modo gráfico, 
pulse “shifted-9”.) Después pulse la'tecla del SPACE y 
aparecerá el símbolo. 


2. El símbolo < > en la línea 215 se logra con una 
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única pulsación, “shifted-7”. No use “shifted-N” ni “shif- 
ted-M”. 


Puntos de interés 


Líneas 130-250: Son las que controlan el movimien- 
to de la puerta. 


Línea 215: Esta línea explora de forma continua el 


teclado para determinar si ha sido efectuado algún dis- 
paro. 


Línea 300: Esta línea verifica si el disparo ha sido 
certero. 


Líneas 305-330: La bala es disparada y se suman 100 
al contador por cada golpe certero, que después es mos- 
trado. 


Línea 345: Esta línea comprueba si el contador está 
por debajo de — 100. 


Línea 400: Si no acierta el disparo, los puntos són 
deducidos en esta línea. 


Adaptaciones posibles 


l. En la línea 310, puede cambiar la «X» por otro 
carácter cualquiera que le guste más para representar la 
bala. 


2. En vez de tener un valor fijo de 100 para cada 
acierto o un valor fijo de — 100 para cada fallo, se puede 
hacer que la computadora genere un valor al azar ha- 
ciendo cambios en las siguientes líneas: 


320 LET P=P+INT (RND* 100) 
400 LET P=P-INT(RND*100) 
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Capítulo 4 (1. TRAGAPERRAS 


e El juego 

e Programa 4: M. TRAGAPERRAS 
e Notas sobre el uso del teclado 

e Puntos de interés 

e Adaptaciones posibles 


El juego 


La mayoría de nosotros estamos familiarizados con 
las máquinas tragaperras comúnmente denominadas 
«bandidos a mano-armada». Este programa simula las 
ventanillas giratorias que son características de las má- 
quinas tragaperras. En el comienzo del juego, se le pide 
al usuario que introduzca la cantidad que desea apostar. 
Esta cantidad permanece como la apuesta fija para el 
resto del juego. Si observa la pantalla cuidadosamente, 
comenzará a ver girar la primera ventanilla. En cual- 
quier momento puede detener este giro pulsando cual- 
quiera de las teclas. En el instante en que la primera 
ventanilla detenga su giro, comienza a girar la segunda, 
quedando la primera estacionaria. Para parar la segun- 
da, pulsar cualquier tecla. Después de que la segunda ha 
sido detenida, la tercera ventanilla comenzará a girar. 
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Cuando esta última ventanilla ha sido parada (presio- 
nando cualquiera de las teclas del teclado), la jugada ha 
terminado y los premios son otorgados como sigue: 


e Si las tres ventanillas muestran el mismo símbolo, us- 
ted ha ganado el premio gordo, y la recompensa es 
cinco veces la cantidad de la apuesta inicial. 


e Si las dos primeras coinciden, la recompensa es dos 
veces la cantidad de la apuesta inicial. 


e En cualquier otro caso usted ha perdido el juego. 


La cantidad ganada es entonces mostrada en la parte 
inferior de la pantalla, y se inicia una nueva partida. 


Programa 4: M. TRAGAPERRAS 


5 LETB=0 
6 PRINT"INTRODUZCA_LA_APUESTA” 
7 INPUTR 
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100 
110 
120 
125 
130 
150 
159 
160 
170 
179 
180 
200 
210 
220 
230 
240 
250 


CLS 


LET |=8 
LET J=4 
SIN EOS MAQUINA TRAGAPERRAS 


GOSUB 200 

LETwW1=T 

LET J=13 

GOSUB 200 

LETwW2=T 

LET J=22 

GOSUB 200 

IF W1=W2 AND W2=T THEN GOTO 150 
IF W1=W2 THEN GOTO 170 

PRINT AT 19,9:"_HA_PERDIDO” 

LET 0=-1 

GOTO 600 

PRINT AT 19,9;"*_EL_GORDO_*” 

LET O=5 

GOTO 600 

PRINT AT 19,9:"*_2_PAREJA_*" 

LET O0=2 Ver las «Notas so- 
GOTO 600 aa aa 
REM 

PRINTAT 141): PAN” 

PRINTAT 1+2,); MMM” 

PRINTAT ¡+33 D_M_ E” 

PRINT AT 1+4,3: “DI _ MN” 

PRINT AT 1+5): “lalala 
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260 
270 
300 
310 
320 
330 
340 
360 
370 
400 
410 
420 
430 
440 
460 
470 
500 
600 
605 
610 
620 


630 
640 
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LET T=1 
IFINKEYS < >”""THEN RETURN 
PRINTAT 1+1,J: "MEA 
PRINT AT 1+23 "MEMEN 
PRINT AT 1+33: "ME _ MI 
PRINTAT +43 "MENE 
PRINT AT 1+5,): "MIO * 
LET T=2 : 

IFINKEYS< >”""THEN RETURN 
PRINTAT +1); "aya 
PRINTAT 1+2.3: "DEM" 
PRINTAT 1+33"D_M_(E” 
PRINTAT +43 "DM _ MD: 
PRINT AT 1+53: "Malal * 
LET T=3 

IFINKEYS < >""THEN RETURN 
GOTO 210 

LET B=B+0*R 

PAUSE 100 

CLS 

PRINT AT 21,8; "TOTAL_=_$_":B; 
PAUSE 100 

GOTO 10 
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Notas sobre el uso del teclado 


l. La línea 210 consta de cinco símbolos gráficos. 
Para acceder a ellos, primero poner la computadora en 
el modo (8, para ello presionar la tecla GRAPHICS 
(“shifted-9”). Ahora que ya está en el modo gráfico, pre- 
sionar las siguienes teclas: “shifted-E(B), “shifted-7”(88), 
“shifted-7*(58), “shifted-7*(5M) y “shifted-R (BY). 


2. El «literal» en la línea 220 consta de cinco carac- 
teres adicionales, a cuatro de ellos se accede desde el 
modo gráfico. El «carácter» central, sin embargo, es 
simplemente un espacio (simbolizado por el subrayado). 
Al cual se accede desde el modo MM. Para introducirlo, 
abandonar el modo gráfico (pulsando “shifted-9”), pulsar 
el espaciador SPACE una vez, y entonces reentrar al 
medo gráfico para introducir los dos últimos símbolos. 


Puntos de interés 


Líneas 30-90: Estas establecen la posición de las 
ventanillas. 


Líneas 100-180: Determinan si el juego se ha ganado 
o perdido y la cantidad de recompensa. 


Líneas 210-500: Muestran el giro de las ventanillas y 
tratan la información que les llega desde el teclado. 


Líneas 600-620: La cantidad de pesetas ganadas es 
calculada y es mostrado el total. 


Adaptaciones posibles 


Este programa utiliza hasta casi el total de las 2K de 
memoria disponible. Sólo son posibles modificaciones, 
si un paquete de RAM adicional es conectado. Asu- 
miendo que esto ya se ha hecho, las líneas 620-640 pue- 
den ser enmendadas para incluir una sección en la que 
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el valor de la apuesta para cada partida se introduzca 
antes de que ésta comience. - 

Otra posibilidad es aumentar el número de símbolos 
en cada ventanilla a 4 o posiblemente 5. Sin embargo, 
debería hacerse notar que éste es un cambio difícil de 
implementar; si desea intentarlo, podría servirle de guía 
el examinar cuidadosamente las líneas 210-500. 
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Capítulo 5 ¿OS DADOS 


e El juego 

e Programa 5: LOS DADOS 
e Puntos de interés 

e Adaptaciones posibles 


El juego 


Este es un juego gráfico «a paso rápido» similar en la 
forma a el familiar «juego de dados». Las reglas del jue- 
go son: 


e Con7óÓ611 en la primera tirada se gana. 
e Con 2 6 3 en la primera tirada se pierde. 


e Cualquier otro número en la primera tirada se con- 
vierte en su «marca». Usted debe entonces tirar los 
dados continuamente hasta que consiga obtener de 
nuevo su marca. Sin embargo, si se saca un 7 antes de 
lograr la marca, se pierde. 


Nota importante: A fin de que el programa cupiese 
en las 2K de memoria, se hizo necesario el evitar que el 
participante intervenga. Una vez que el programa da co- 
mienzo continúa por sí solo, en su ruta feliz, y a usted 
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sólo se le permite observar el progreso del juego y hacer 
las apuestas que desee. 


Programa 5: LOS DADOS 


10 LET |=9 

15 LETM=0 

20 LETJ=11 

22 PRINTAT 18,18:"__" 
24 LETT=0 

25 FORK=1T0 2 

30 LET X=INT (RND*6+1) 
40 IF K=1 THEN GOTO 60 
50 LETJ=17 

60 GOSUB (X+2)* 100 
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70 

90 

95 
100 
103 
105 
110 
120 
130 
140 
143 
145 
150 
160 
170 
200 
205 
280 
285 
286 
287 
288 
290 
300 
310 
320 
330 
340 


LET T=T+X 

NEXT K 

LET M=M+1 

PRINT AT 18,12;"VALOR_”:T 
PAUSE 100 

IFM<> 1 THEN GOTO 150 
IFT=7 OR T=11 THEN GOTO 200 
IFT=2 OR T=3 THEN GOTO 280 
IFM<> 1 THEN GOTO 150 

LET H=T 


PRINT AT 20,12;"LA_MARCA_ES_";H 


GOTO 20 

IF H=T THEN GOTO 200 

IF T=7 THEN GOTO 280 
GOTO 20 

PRINT AT 16,12;"VD._GANA" 
GOTO 285 

PRINT AT 16,12;"VD._PIERDE” 
PAUSE 100 

LET M=0 
PRINTAT20,12"_______ " 
PRINTAT16,12"____ 0 
GOTO 20 

PRINTAT!J “MEONNA 
PRINTAT (+1) "MEU 
PRINTAT 1+23:"D_ (UN ” 
PRINT AT +33 Mk 
PRINT AT 144.3; "MIA 
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350 
400 
410 
420 
430 
440 
450 
500 
510 
520 
530 
540 
550 
600 
610 
620 
630 
640 
650 
700 
710 
720 
730 
740 
750 
800 
810 
820 
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RETURN 
PRINTAT|J "FONO 
PRINTAT 1+13; "0D MED” 
PRINT AT 1+2,3: "MI 
PRINT AT 1433" MENO _ (E; 
PRINT AT 1+4,3;" Mill 
RETURN 


PRINTAT JP 
PRINTAT +13" HE 


PRINT AT 1+2,);" ME _ MI: 
PRINT AT +33; "MEA: 
PRINT AT 1+4,3; "MENA 
RETURN 

PRINT AT |J "MEME 
PRINTAT!+1J"M_M_M- 
PRINT AT 1+2,3; "MI 
PRINTAT +33 "W_M_W: 
PRINT AT 1+43; “MI 
RETURN 

PRINTAT|J "PAMPA 
PRINT AT /+13 HAM 
PRINT AT 1+2.3:"M 
PRINT AT 143,3; "PPP 
PRINT AT +43: "HR 
RETURN 

PRINTATIJ "ME" EA' 
PRINT AT |+13: “Ma 
PRINTAT /+2J"W_M_MW: 
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830 PRINT AT 1+33: "Mn 
840 PRINT AT +43: "Maa 
850 RETURN 


Puntos de interés 


Línea 30: Esta línea genera el valor del dado —un 
entero entre el 1 y el 6. 


Línea 60: Esta línea es una sentencia GOSUB a un 
valor calculado, que contiene una fórmula y cuando 
ésta es evaluada envía control a la rutina que genera la 
imagen correspondiente. 


Líneas 105-280: Estas líneas se encargan de recono- 
cer el valor de la tirada y determinan dónde enviar con- 
trol dependiendo de las reglas del juego. 


Líneas 300-850: Son dedicadas, enteramente, a la ge- 
neración de las sofisticadas imágenes que muestra este 
programa. 


Adaptaciones posibles 


1. Si usted es un enérgico y laborioso usuario del te- 
clado, puede probar su habilidad en mejorar las imá- 
genes gráficas que se muestran. El 6 del dado parece 
enteramente real; sin embargo, se habrá dado cuenta 
que algunos de los otros números del dado —como, por 
ejemplo, el 1 y el 2— muestran marcas blancas muy 
grandes para indicar su valor. Rehaciendo los símbolos 
gráficos en las líneas 300 y siguientes, puede componer 
una nueva imagen y así lograr simular más exactamente 
lo que en la realidad aparece en el dado. Esto le supon- 
drá una cuidadosa planificación y un cuidadoso trabajo 
con el teclado, pero usted debería ser capaz de hacerlo. 
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2. Con el paquete de RAM adicional puede, si lo de- 
sea, añadir rutinas de apuestas en la línea 900. Esto pue- 
de ser'implementado cambiando las líneas 170 y 290 
para que lea GOTO 900. Y entonces en el final del pro- 
grama le sería posible hacer una bifurcación hacia atrás 
a la línea 20. 
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Capítulo 6 (B4ACCARAT» 


e El juego 

e Programa 6: «BACCARAT» 
e Puntos de interés 

e Adaptaciones posibles 


El juego 


Las reglas de este juego pueden variar en algo de las 
que emplean en su casino local; para el propósito de 
este juego las reglas son las siguientes: 


e Las dos cartas distribuidas a cada jugador deben de 
sumar 9 o un valor tan cerca a éste como sea posible. 


e Todas las cartas de 10 o números por encima cuentan 
como 0. 


e Cualquier valor en puntos mayor que 9 se toma como 
10 menos. Por tanto, 15 puntos son tomados como 5 
y 10 puntos son tomados como 0. 


e Usted juega como adversario de la computadora, pero 
debe ir por delante, con ambas cartas boca arriba. (La 
computadora siempre tiene su primera carta boca 
abajo.) 
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Debido a la limitación impuesta por la memoria de 
2K, las siguientes convenciones han sido adoptadas: 


(1) Los tantos del jugador son mostrados en la parte 
izquierda de la pantalla. 


(2) Los tantos de la computadora son mostrados en la 
parte derecha de la pantalla. 


(3) Los valores de las cartas son representados por Y 
(para usted) y C (para la computadora). 


(4) CD significa: ¿Otra carta? 


(5) Y significa Sí; N significa No. (Pulse la tecla EN- 
TER después de cada respuesta.) 


(6) Después de que la tercera carta es extraída, el or- 
denador decidirá si desea una tercera carta. (El má- 
ximo permitido es tres.) 


. . 
TO 2USDAO 
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Nota importante: Debido al uso de casi la totalidad 
del espacio de memoria en este programa, se recomien- 
da que después de que el programa haya sido introdu- 
cido se teclee CLEAR y a continuación ENTER antes 
de que el programa sea ejecutado. Una observación: los 
valores de las cartas permitidas son A234567890J0QK, 
donde el O (cero) representa el 10. Comience, y ibuena 
suerte! 


Programa 6: «BACCARAT» 


105 LETX$="A234567890JQ0QK" 
110 PAUSE 90 

112 CLS 

115 LET X=1 

120 LET Z=1 

130 LET P=0 

140 FOR T=1 TO 2 

170 GOSUB 800 

175 GOSUB 900 

180 PRINTAT X+1,2+1:YS 
190 LET P=P+Y 

200 LET X=X+3 

210 LET Z=Z+2 

220 NEXT T 

230 GOSUB 1000 

260 PRINTAT 19,1:/"Y:_":P 
300 LET R=1 

310 LET S=17 

320 LETD=0 
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330 
340 
350 
400 
405 
410 
420 
430 
440 
445 
450 
460 
470 
480 
490 
500 
510 
915 
520 
545 
550 
555 
560 
563 
565 
570 
575 
580 
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FORT=1TO 2 

GOSUB 850 

GOSUB 900 

LET D=D+Y 

IF T=1 THEN GOTO 420 
PRINTATR+1,S+1:YS8 
LETR=R+3 

LET S=S+2 

NEXT T 

GOSUB 1100 

PRINT AT 19,17;"C"" 
PRINTAT 21,1:"CD?" 
INPUT 0$ 

IF O$="N" THEN GOTO 550 
GOSUB 800 

GOSUB 900 

PRINTAT X+1,Z+1:Y8 
LET P=P+Y 

GOSUB 1000 

PRINT AT 19.4;P 

PRINT AT 19,20:D 

IF D=P THEN GOTO 600 
IF D>P THEN GOTO 650 
IF T=0 THEN GOTO 675 
GOSUB 850 

GOSUB 900 

PRINT AT R+1,5+1:Y8 
GOSUB 1100 
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590 
596 
597 
600 
610 
650 
660 
675 
680 
800 
810 
820 
850 
860 
870 
900 
910 
920 
930 
940 
950 
960 
965 
970 
1000 
1010 
1020 
1100 


PRINT AT 19,20;D 
LETT=0 

GOTO 555 

PRINT AT 21,1:"EMPATE" 
GOTO 110 

PRINT AT 21,1:"PERDIO” 
GOTO 110 

PRINT AT 21,1:"GANO” 
GOTO 110 

LET |=X 

LET J=Z 

RETURN 

LET |=R 

LETJ=S 

RETURN 

PRINTAT |“ 
FOR K=I+1 TO I+3 
PRINTATKJ:"D_ (Y 
NEXT k | 
PRINT AT 1+4,3:;“Mollaal ua ell * 
LET Y=INT (RND*13+1) 
LET Y$=X$(Y) 

IFY> 10 THEN LET Y=10 
RETURN 

IFP< 10 THEN RETURN ' 
LET P=P-10 

GOTO 1000 

IFD< 10 THEN RETURN 
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1110 LET D=D-10 
1120 GOTO 1100 


Puntos de interés 


Líneas 800-820 y 850-870: Para copiar la disposi- 
ción de la carta se utilizan dos subrutinas. Las cuales 
están localizadas en las líneas 800-820 y 850-870. Esto 
permite que la subrutina de las líneas 900-970 sea utili- 
zada por ambas cartas, las del jugador y las de la com- 
putadora. 


Líneas 900-970: La subrutina escrita en estas líneas 
crea la imagen de una carta; y además selecciona al azar 
un valor que corresponde a una carta. 


Adaptaciones posibles 


1. Si le es posible disponer de más de las 2K de me- 
moria regular de la computadora, puede, si lo desea, in- 
sertar una rutina de apuestas en la línea 1200 y enviar 
control a esta rutina desde las líneas 610, 660 y 680. 

2. Podría querer tener la seguridad de que las cartas 
seleccionadas son únicas. Esto puede ser realizado in- 
cluyendo un array dimensionado: M(4 x 13). En tal 
estructura, todos los elementos son iniciados a cero, y 
además el proceso de selección de cartas es modificado 
para que incluya la selección de un palo (espadas, cora- 
zones, tréboles o diamantes) mediante una selección al 
azar del 1,2,3 6 4. 

3. Después de la elección al azar de un número del 1 
al 13 y otro del 1 al 4 (por ejemplo, tomemos 10 y 2), 
un chequeo deberá de ser realizado sobre el valor del 
M(2, 10). Si dicho valor es igual a O, la carta aún no ha 
sido utilizada y, por tanto, está disponible. Sin embargo, 
una vez que sea usada se pondrá a 1. Si el M(2, 10) es 
igual a 1, la carta ya ha sido utilizada y, por tanto, debe- 
rían ser generados dos nuevos valores. 
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Capítulo 7 AASTREO 
ESPACIAL 


e El juego 

e Programa 7: RASTREO ESPACIAL 
e Puntos de interés 

e Adaptaciones posibles 


El juego 


En este juego usted juega el papel de comandante de 
una flota en una base estelar sometida a un ataque de fo- 
rasteros invisibles. Usted puede disparar una sonda en 
una de las cuatro direcciones usando uno de los cuatro 
«comandos de dirección» localizados en las teclas 5, 6, 7 
y 8. Su disparo es visualizado mediante asteriscos. Si tie- 
ne éxito y de forma efectiva da en el blanco de un in- 
vasor forastero, le será indicado sobre su panel-radar, 
situado en la parte más inferior de la pantalla. Por cada 
blanco le serán adjudicados 100 puntos. No obstante, si 
falla, su panel-radar registrará el fallo. Los fallos tienen 
el efecto de dañar su lanzador de sondas, haciendo que 
la distancia a la que puede disparar sea acortada. Para 
agravar los problemas, cualquier daño sufrido por su 
lanzador es irreparable. 
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El juego termina cuando el alcance de la sonda se 
hace tan corto que la hace ineficaz. Tan pronto como 
lleguemos a la situación en que sus proyectiles no pue- 
den hacer fuego suficientemente lejos, le aparecerá el 
mensaje GAME OVER (fin del juego). 


Programa 7: RASTREO ESPACIAL 


50 LETA=0 

60 LET B=20 

70 LET C=30 

80 LETP=0 

100 PAUSE 30 

103 CLS 

105 PRINT AT 10,15;"BH” 
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110 
120 
130 
135 
140 
200 
210 
215 
220 
230 
240 
250 
255 
260 
300 
310 
320 
330 
450 
455 
460 
470 
480 
490 
500 
510 
530 
540 


PRINTAT 11,114 "Bu * 
PRINTAT 12,15;"B8" 

LET X=INT (RND*3+5) 

LETZ=0 

LET F=0 

IFINKEYS < >”"THEN GOSUB 450 
IF F=1 THEN GOTO 300 

IF Z=0 THEN GOTO 130 

LET A=A+1 Asegúrese de incluir 
LET B=B- 5 ña a decimal 
LET C=C-1 

PRINT AT 21,12;"FALLO” 

IFA=11 OR B< 13 THEN GOTO 900 
GOTO 100 

LET P=P+100 

PRINT AT 21,12;"Un_ACIERTO” 
PRINT AT 21,20;"PTS:_”;P 

GOTO 100 

LET Z=1 

IFINKEYS="5" THEN GOTO 500 
IF INKEYS="6" THEN GOTO 600 
IFINKEYS="7" THEN GOTO 700 
IF INKEYS="8" THEN GOTO 800 
RETURN 

FOR |=13 TO ASTEP-1 

PRINTAT 11,1,"*” 

NEXT | 

IF X=5 THEN LET F=1 
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590 RETURN 

600 FOR !=13TO B 

610 PRINTAT1,15;"*" 
630 NEXT | 

640 IF X-6 THEN LET F=1 
690 RETURN 

700 FOR |=9TO ASTEP-1 
710 PRINTAT1,15"*" 
730 NEXT | 

740 1F X-=7 THEN LET F=1 
790 RETURN 

800 FOR I=17 TOC 

810 PRINTAT 11,1," 
830 NEXT | | 
840 IF X-8 THEN LET F=1 
890 RETURN 

900 PRINT AT 21,10;"FIN_DEL_JUEGO" 


Puntos de interés 
Líneas 105-120: Montan la clase estelar. 


Línea 120: Esta línea determina si un forastero está 
presente. 


Líneas 220-240: El alcance de la sonda espacial se 
reduce en estas líneas. 


Líneas 455-490: La dirección en la que la sonda va a 
ser lanzada —hacia arriba, abajo, izquierda o derecha— 
es determinada por estas líneas. 


Líneas 500-590: Hacen que la sonda sea disparada 
hacia la izquierda. 
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Líneas 600-690: Lanzan la sonda hacia abajo. 
Líneas 700-790: Lanzan la sonda hacia arriba. 


Líneas 800-890: Lanzan la sonda hacia la derecha. 


Adaptaciones posibles 


Si tiene a su disposición algún espacio de memoria 
adicional, se puede hacer que cada invasor forastero dé 
vueltas en órbita alrededor de la estación. Cada vez que 
sea registrado un fallo, puede ser iniciada algún tipo de 
acción, tal como hacer que el forastero se acerque a la 
estación en una unidad. Y por cada blanco, el forastero 
puede ser repelido, en una unidad, alejándose de la base. 
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Capítulo 8 £X4/EN 
DE MATEMATICAS 


e El juego 

e Programa 8: EXAMEN DE MATEMATICAS 
e Puntos de interés 

e Adaptaciones posibles 


El juego 


En este juego la computadora examinará sus conoci- 
mientos prácticos en matemáticas elementales. Real- 
mente no tiene por qué ponerse nervioso, ya que todo lo 
que hace el programa es ejercitar su habilidad para su- 
mar, restar, multiplicar y dividir. La computadora es la 
que selecciona con cuál de estas operaciones va usted a 
operar. Todo lo que usted tiene que hacer es contestar 
correctamente las cuestiones. 

Cada vez que juegue a este juego, los valores dados 
para el cálculo serán diferentes, ya que la computadora 
los selecciona al azar. Cuando la pregunta es mostrada 
en pantalla, se le invita a que seleccione la respuesta co- 
rrecta de entre cuatro posibles respuestas —o si lo quie- 
re, es un tipo de cuestión de elección múltiple—. Las 
posibles opciones han sido preparadas de forma que 
cualquiera de las respuestas dadas podría ser fácilmente 
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confundida con la correcta, por eso realmente debe po- 
ner gran atención al elegir la respuesta. No hay límite de 
tiempo impuesto al jugador, por tanto puede tomarse su 
tiempo antes de hacer su elección. 

Cada vez que su elección es correcta, su contador se 
incrementa en 1. Cada vez que elija una respuesta in- 
correcta, le será indicado y le será dado el resultado 
correcto. Para finalizar el programa, simplemente pulse 
el O como una respuesta. ¡Mucha suerte! 


Programa 8: EXAMEN DE MATEMATICAS 


100 LETC=0 
105 LETP=0 
110 DIM 0/4) 
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120 LET K=INT(RND*4+1) 

125 LET P=P+1 

130 GOSUB K*100+200 

135 PRINTAT 3,112" EOQEPEAIAAAS 

140 LET S=INT(RND*4+1) 

150 LET Q(S)=A 

160 GOSUB 700 

170 PRINT AT 8,4:"PREGUNTA_==>_"X:.Y8;Y: 
n_n 

180 PRINTAT 11,1; 

190 FOR J=1TO 4 


07) ”. 07) ”. 10) 
a EE 
210 NEXT J literal. 

220 PRINT AT 17,8;"ELIJA_1,23_60_4" 
230 INPUT G 


240) IFG=0 THEN GOTO 900 
250 IF O(G)=A THEN GOTO 800 
260 PRINT AT 17,8;"ERROR,_ERA_EL_N._”;S 
270 GOTO 820 

300 LET X=INT (RND*90+10) 
310 LET Y=INT (RND*90+10) 
320 LET A=X+Y 

330 LETYS="_+_" 

340 RETURN 

400 LET X=INT (RND*90+100) 
410 LET Y=INT (RND*90+10) 
420 LET A=X-Y 

430 LETYS="_-_" 
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440 RETURN 

500 LET X=INT (RND*20+4) 

510 LETY=INT (RND*20+4) 

520 LET A=X*Y 

530 LET YS="_*_" 

540 RETURN 

600 LETY=INT (RND*10+2) 

610 LET X=INT(RND*20+10)*Y 

620 LETA=X/Y 

630 LETYS="_/_" 

640 RETURN 

700 FORI=1104 

710 1F Q()=A THEN GOTO 760 

720 LET Q(1)=INT (RND*(I+1)-3)*5+A 
730 FOR Z=1TO (1-1) 

749 1F Q(Z)=0Q(1) THEN GOTO 720 

750 NEXT Z 

755 IF Q(I)=A THEN GOTO 720 

760 NEXT | 

770 RETURN 

800 LET C=C+1 

810 PRINTAT 17,8:"***_CORRECTO_***" 
820 PRINT AT 21,10:"PUNTUACION:_”.C;"/";P 
830 PAUSE 100 

840 CLS 

850 GOTO 120 

900 LET D=C/(P-1)*100 - lenslcomienzo dela 
910 CLS página siguiente. 
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920 PRINT AT 11,8;"PUNTUACION_FINAL:_“:¡INT 
D 


Puntos de interés 


Línea 130: Una GOSUB calculada le lleva a la sub- 
rutina apropiada, según la pregunta sea sobre suma, res- 
ta, multiplicación o división. 


Línea 170: Esta línea muestra en pantalla la pregun- 
ta, con el tipo de operación seleccionada al azar y alma- 
cenada en la variable Y$. 


Líneas 300-640: Generan de forma aleatoria los nú- 
meros que van a ser usados en la pregunta. 


Líneas 700-770: Estas representan la rutina que ge- 
neran las alternativas falsas; todas ellas corresponden en 
algún grado a la respuesta correcta. 


Líneas 730-755: Estas líneas aseguran que cada res- 
puesta correcta sea única. En otras palabras, evita la 
posibilidad de alternativas dobles. La línea 730 com- 
prueba si una determinada respuesta incorrecta ya ha 
sido usada. La línea 755 asegura que una respuesta in- 
correcta no pueda ser igual a la respuesta correcta. 


Líneas 800-820: Estas líneas son activadas cuando la 
respuesta es correcta; también son las responsables de 
mostrar el contador 


Líneas 900-920: Si el jugador pulsa O como respues- 
ta, se pasa a estas líneas. Llevan a cabo el cálculo de la 
puntuación final, borran la pantalla, después muestran 
la puntuación final y terminan el programa. 


Adaptaciones posibles 


Para lograr un juego aún más desafiante, podría im- 
ponerse no sólo el que la respuesta sea correcta, sino 
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que sea dada en un período de tiempo limitado. Esto po- 
dría implementarse en las líneas 220-240 usando las 
familiares sentencias de PAUSE y INKEYS. 
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Capítulo 9 £/ AHORCADO 


e El juego 

e Programa 9: EL AHORCADO 
e Puntos de interés 

e Adaptaciones posibles 


El juego 


¿Quién no ha estado fascinado en su temprana infan- 
cia con el juego del ahorcado? Con la ayuda de su T/S 
1000, es posible jugar a dicho juego electrónicamente. 
Esta versión del ahorcado responde a cada respuesta in- 
correcta, construyendo gráficamente sobre la pantalla el 
patíbulo y el cuerpo del ahorcado. 

Las reglas son las dadas a continuación: Las palabras 
secretas pueden tener longitud variable. Cuando se te- 
clea una letra, se examina la palabra secreta, y si la letra 
que usted introdujo está en la palabra, entonces le es 
mostrada en la posición que le corresponde. Si una de- 
terminada letra aparece más de una vez, entonces es 
insertada a la vez en todas las posiciones adecuadas. Si 
la letra por usted seleccionada no es correcta, entonces 
se completa una parte del patíbulo y es mostrado en la 
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parte derecha de la pantalla. La séptima suposición in- 
correcta dará como resultado la finalización del juego. 


Programa 9: EL AHORCADO 


10 LET x$="IMPOSIBLEPROGRAMA___ 


20 
20 
40 
50 
60 
70 
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AYER_RIDICULOGRAFICOS_ 
TELEFONO_ASCENDENTE 
__CLARIFICAR 
LET Y=INT (RND*8+1) 

LET W$=X$((Y-1)*10+1 TO (Y-1)*10+10) 
LET H$=WS 

FOR |=1 TO 10 

IF WS(I)<>”_"THEN GOTO 90 

GOTO 100 


CLIENTE 
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90 NEXT | 
100 LET L=I-1 
110 LET DS=" fuellmalisollmallcellmliso malisaliaal ” (1 TO L) 
130 PRINT AT 2,12, "AHORQUELOS_BIEN_ 
ALTO" 

140 LETE=0 

170 PRINT AT 7,9:"DE_UNA_LETRA” 

180 PRINTAT 17,3,D$ 

190 INPUT L$ 

191 LETF=0 

220 FORI=1TOL 

230 IF LS=WS5(I) THEN GOTO 300 

240 NEXT | 

250 IF F=1 THEN GOTO 170 

260 LET E=E+1 

270 GOTO E*100+500 

300 LET D$(I)=W8(!) 

310 LET WS(l)="_" 

320 LET F=1 

330 IF D$=H$(1 TO L) THEN GOTO 410 

340 GOTO 220 

410 PRINT AT 21,16. MN) 

420 PRINTAT 17,3:D$ 

430 STOP 

600 PRINTAT 10,25; "Pra 

610 FORO=11T0 19 : 

620 PRINTATO31: "MW" 

630 NEXT OQ 
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640 GOTO 170 
700 PRINTAT 11,12." 
710 PRINTAT 12,24." 
720 GOTO 170 
800 PRINT AT 13,22;” mula * 
810 GOTO 170 
900 PRINT AT 13,25;” Malal * 
910 GOTO 170 
1000 PRINTAT 14,24, "WIN" 
1010 PRINTAT 15,24: "MIN 
1020 GOTO 170 
1100 PRINTAT 16,24 "DB" 
1110 PRINTAT 17,23"B4__D” 
1120 GOTO 170 | 
1200 PRINT AT 18,23: "Wi __ kh” 
1210 PRINT AT 20,23;"AHORCADO" 


Puntos de interés 


Línea 10: Todas las palabras son almacenadas en 
una variable cadena X$ en la línea 10. Se puede ver que 
son de distintas longitudes. Sin embargo, para asegurar 
que las palabras se acceden correctamente, cada palabra 
de menos de diez letras es completada por la derecha 
con blancos. 


Línea 30: En esta línea se selecciona una palabra y 
se almacena en W$. 


Línea 40: Almacena una copia de W$ en H$. 


Líneas 50-100: Estas líneas determinan la longitud 
de la palabra seleccionada. Para ello se busca en la pa- 
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labra hasta encontrar el primer blanco y se hace L igual 
a la longitud calculada. 


Línea 110: Esta línea compone en la pantalla los es- 
pacios para las letras de la palabra secreta. 


Líneas 220-330: Las marcas que simbolizan las letras 
desconocidas son reemplazadas por las letras actuales, si 
éstas forman parte de la palabra secreta. 


Línea 270: Esta es una sentencia GOTO a un valor 
calculado, que envía control a la parte del programa que 
compone la imagen apropiada. 


Línea 600: Esta línea y todas las que vienen a conti- 
nuación hasta el fin del programa componen la imagen 
completa del hombre ahorcado. 


Notas importantes: Para que este programa pueda 
ser ejecutado, debe pulsar antes las teclas CLEAR y EN- 
TER. También, tener en cuenta que la lista de palabras 
desconocidas está limitada a ocho. 


Adaptaciones posibles 


1. Podría libremente cambiar las 8 palabras de la lí- 
nea 10 por otras palabras elegidas por usted. Sin em- 
bargo, asegúrese siempre de rellenarlas con blancos a la 
derecha, de tal modo que las palabras que tome sean 
uniformes, de diez letras. 


2. Si dispone de memoria extra, puede sentir la ten- 
tación de querer expandir la pila de palabras secretas. Si 
lo hiciera, asegúrese de cambiar la línea 20 para que re- 
fleje el nuevo número de palabras. Si usted no hace esto, 
las palabras extra estarán en la variable X$, pero nunca 
serán elegidas. 


3. Otra modificación, y mucho más desafiante, es 
permitir la adivinanza de la palabra completa sin tener 
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que ir probando con letras individuales. ¿Puede imagi- 
narse cómo hacer esto? 


4. Probablemente el juego podría ser mejorado si las 
letras que ya han sido elegidas le fueran mostradas en la 
parte inferior de la pantalla. Esto sería particularmente 
útil para la «gente menuda». Inténtelo. 


5. Además, sería muy bonito si algún mecanismo de 
detección de errores fuera incluido en el programa para 
evitar la posibilidad de elegir una letra que ya hubiera 
sido seleccionada. 


6. Si es usted un lingúista, sabrá que la palabra 
«AHORCADO», como aparece en la línea 1210, debe- 
ría ser realmente «HANGED». Cámbiela si lo desea. 


64 CAPITULO 9 


Capítulo 10 SECUENCIA 


e El juego 

e Programa 10: SECUENCIA 
e Puntos de interés 

e Adaptaciones posibles 


El juego 


Este programa es una variación del juego electrónico 
llamado «Simón». Permite participar de uno a cuatro 
jugadores y después de cada ronda la dificultad va 
aumentando. Se le pide que repita una secuencia de 
números que es mostrada en el centro de la pantalla de 
número en número y de forma fulgurante. El programa 
comienza con secuencias de 4 dígitos. Se pide a cada ju- 
gador que repita una secuencia de números elegida al 
azar. Aquel jugador que falle es eliminado del juego de 
forma inmediata, y aparece en pantalla la secuencia co- 
rrecta. 

En la siguiente ronda sólo participan el resto de los 
jugadores, pero el número de dígitos es incrementado en 
uno. Además, aumenta la velocidad a la que los núme- 
ros son mostrados en la pantalla. Como podrá observar 
cuando ejecute el programa, los números son mostrados 
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de una forma verdaderamente muy rápida. La máxima 
secuencia permitida contiene 10 números, pero es segu- 
ro apostar que nunca se alcanzará ese máximo. Una vez 
que todos los jugadores han sido eliminados, aparece un 
listado de las puntuaciones alcanzadas por cada jugador. 
Si disfruta con los desafíos intrincados, aquí tiene uno. 


Programa 10: SECUENCIA 

100 DIM P(4) 

105 DIMS(4) 

110 DIMHS$(10) 

120 LET Xx$="0123456789" 

130 LET N=4 

140 FOR |=1 TO 4 

145 CLS 

150 IF P(I)=1 THEN GOTO 270 

160 PRINTAT 3,10;"JUGADOR_”;1;"_ADELANTE” 
163 PRINT AT 5,12¡N;"_NUMEROS” 
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165 PAUSE 100 

170 FORJ=1TON 

175 LET K=INT(RND*10+1) 

180 LET H$(J)=X$(K) 

190 PRINTAT 11,15;H8(J) 

200 FOR H=1 TO (10-N) 

205 NEXT H 

210 PRINTAT11,/15;"_" 

220 NEXT J 

230 PRINT AT 16,5:"REPITA_LA_SECUENCIA_ 
N.._*:1 

240 INPUTAS 

250 IF AS=H8(1 TO N) THEN GOSUB 400 

260 IFAS< >H$(1 TO N) THEN GOSUB 500 

265 PAUSE 150 

270 NEXT | 

280 IEN<10 THEN LET N=N+1 

290 FORT=1T0 4 

300 1F P(T)=0 THEN GOTO 140 

310 NEXT T 

320 CLS 

330 PRINT AT 3,6:"TODOS_LOS_JUGADORES_ 
ESTAN_ELIMINADOS” 

340 PRINTAT 7,12" RUNAS 

350 FORT=10T0 13 ' 

360 PRINT ATT 7:"JUGADOR_":.T-9;"_===>_"; 
S(T-9) 

370 NEXT T 


SECUENCIA 


380 STOP 

400 PRINT AT 18,10;"DE_ACUERDO,_N.2_”; 

410 LET S(1)=S(1)+1 

420% RETURN 

500 PRINT AT 18,10;"LO_SIENTO_N.*_”; 

510 LET P(1)=1 

520 PRINT AT 11,2;"EL_JUGADOR_ESTA_ 
ELIMINADO“ DEL_JUEGO” 

530 PRINT AT 13,10;"ERA_"¡H$(1 TO N) 

540 RETURN 


Puntos de interés 


Línea 120: Los diez dígitos 0-9 son almacenados en 
la variable cadena X$. Esto es para hacer más fácil la 
extracción de un dígito. 


Líneas 190-210: Estas líneas muestran los dígitos en 
pantalla y varían el intervalo de tiempo. 


Líneas 250-260: En estas líneas se realiza un test 
para determinar si la secuencia introducida es correcta. 


Líneas 320-380: Estas borran la pantalla y muestran 
las puntuaciones finales. 


Líneas 400-420: Confirman una respuesta correcta y 
añaden 1 al contador de cada jugador que acierte. Si se 
desea jugar con menos de 4 jugadores, se puede hacer 
introduciendo una respuesta incorrecta en la primera 
ronda para los jugadores que no van a intervenir, y así 
quedan eliminados. 
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Adaptaciones posibles 


1. La introducción de la secuencia puede ser crono- 
metrada insertando las instrucciones apropiadas en las 
líneas 230-250. 


2. Si el juego va a un ritmo demasiado rápido, en- 
tonces las líneas 200-205 (que representan un bucle de 
retardo) pueden ser ajustadas. Para un juego más rápido, 
el número debería ser reducido; para un juego más len- 
to, debería ser aumentado. 
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El alquerque / 83 


1010 LETOQ=0 

1015 FAST 

1020 FOR B=1 TO 12 

1030 LET C=B(B) 

1040 IF A$S(C)<>'"T” THEN GOTO 1190 
1050 FOR X=1 TO 4 

1060  LET N=CODE B$(X)- 40 

1070 IF AS(C+N)<>"0" THEN GOTO 1170 
1080 IF AS(C+2*N)<>"_" THEN GOTO 1170 
1090  LET AS(C+2*N)=AS$(C) 

1100  LET A$(C)="_" 

1110  LETAS(C+N)="_" 

1120  LET B(B)=C+2x*N 

1130  LETC=C+2x*N 

1149 GOSUB 100 

1150 LET Q=1 

1160 GOTO 1050 

1170 NEXT X 

1180 IF Q=1 THEN GOTO 3010 

119% NEXT B 

2000 FOR B=1 TO 12 

2010  LET C=B(B) 

2020 IF AS(C)<>"10l' THEN GOTO 2210 
2030 FOR X=1 TO 4 ES 
2040 LETN=CODE B$(X)-40 

2050 IF AS(C+N)<>"_" THEN GOTO 2200 
2060 LETYS=AS$ 

2070 LET Y$(C+N)=Y8(C) 

2080 LETY$(C)="_" 
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2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
3000 
3010 
3020 


FOR A=1 TO 12 

LET D=C(A) 

IF Y$(D)<>"0" THEN GOTO 2170 
FOR Z=1 TO 4 

LET M=CODE B$(Z)-40 

IF YS(D+M)< >"T0l THEN GOTO 2160 
IF YS(D+2*M)=""_" THEN GOTO 2200 
NEXT Z 

NEXT A 

LET AS=Y8 

GOTO 2300 

NEXT X 

NEXT B 

FOR B=1 TO 12 

LET C=B(B) 

IF AS(C)< >"TOl” THEN GOTO 2330 
FOR X=1 TO 4 

LET N=CODE B$(X)-40 

IF AS(C+N)<>"_" THEN GOTO 2320 
LET AS(C+N)=A$(C) 

LET A$(C)="_" 

LET B(B)=C+N 

GOTO 3000 

NEXT x 

NEXT B 

PRINT AT 21,12;"MOWNTIN vw 
GOSUB 100 

PRINT AT 21,12; "YOUR_GO" 

INPUT G$ 
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3030 PRINT AT 21,12_______ 4 


3040 IF LEN G$< >4 THEN GOTO 3010 
3050 LET G=16*(CODE G$(1)-28)+3*(CODE 


GS$(2)-37)+1 
3060 LET H=16x*(CODE G$(3)-28)+3*(CODE 
G$(4)-37)+1 
3070 IF G<1 OR H<1 OR G>100 OR H>100 THEN 
GOTO 3010 


3080 IF AS(G)< >"0" OR AS(H)<>"_" 
THEN GOTO 3010 

3090 LET A$(H)=A$(G) 

3100 FOR A=1 TO 12 

3110 IF C(A)=G THEN LET C(A)=H 

3120 NEXT A 

3130 LET A$(G)="_"” 

3140 IF ABS (H-G) < >6 AND ABS (H-G)< >32 
THEN GOTO 1000 . 

3150 LET AS((H+G)2)="_" 

3160 GOSUB 100 

3170 PRINT AT 21, 6:"CAN_YOU_ JUMP _AGAIN?” 

3180 LET Z5=INKEYS$ 

319 IF Z$="" THEN GOTO 3180 

3200 PRINT AT 21,6;” 


3210 IF Z$="Y" THEN GOTO 3010 

3224 GOTO 1010 

4000  LET AS="XXXXXXXXXXXXXXXXXX[E [O] 
A[HoON HON HOM Hol MN Hon ÍA 
OBTHON [HON | HOM HN HOMO 
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A | UNE | UOH | HOJ 4 HOJ | HlOJE | 
ONE | HOJH | HoJE Y MOE | EOJE | HON. 
Do ID O Dx XX" 
4010 DIM B(12) 
4020 DIM C(12) 
4030 LET B$="4=*1K8,OBHER"” 
4049 FORB=1TO 12 
4050 LET B(B)=CODE B$(B) 
4060 LET C(B)=116—B(B) 
4070 NEXT B 
4080  LET CS=""Mo full Mo o il o oli os fo 8 Ma a 
4090 LETBS=" PROP 
4100 PRINTAT29:"A_ _B__C__D__E”,, 
4110  FORA=1TO5 
4120 PRINT TAB 8;BS$:TAB 6;A;TAB 24;A;TAB 8;C$ 
4130 NEXT A 
4140 PRINT AT 20,9:"A__B__C__D__E"” 
4150 GOSUB 100 
4160 LET B$="SF9/" 
4170 PRINT AT 0,2;"DO_YOU_WANT_TO_GO_ 
FIRST? _Y/N” 
4180 LET Z5=INKEYS 
4190 IF Z$="" THEN GOTO 4170 
4200 PRINT AT 0,2;"HIGH_JUMP_BY_GRAHAM_ 
CHARLTON” 
4210 IF Z$="Y" THEN GOTO 3000 
4220 GOTO 1000 
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El laberinto 


Este programa fascinante dibuja un laberinto, justo frente a 
usted. Sólo hay un sendero a lo largo del laberinto y se ca- 
mina sobre la línea y no sobre los espacios como en la mayor 
parte de los juegos de laberintos. 

Comienza su caminar en el laberinto entrando por el lado 
izquierdo, donde aparece un pequeño punto y deberá atrave- 
sar el mismo hasta llegar a su lado derecho. 

La computadora sólo genera el laberinto, no lo resuelve. 
Utilice la impresora para dibujar el laberinto sobre papel, 
después resuélvalo (si puede) con un bolígrafo. Este pro- 
grama es agradable de ver y es apropiado para exhibiciones. 
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Programa 15: El laberinto 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
170 
180 
190 
200 
210 
220 


230 
240 
250 
260 
270 
280 


FAST 

DIM A$(63,43) 

FOR A=1 TO 63 

LET A$(A,1)="2" 

LET A$(A,2)=/'2" 

LET A$(A,42)="2" 

LET A$(A,43)="2" 

NEXT A 

FOR A=1 TO 43 

LET AS(1,A)="2" 

LET A$(2,A)="'2" 

LET A$(62,A)=""2" 

LET A$(63,A)="'2" 

NEXT A 

SLOW 

LET X=4 

LET Y=4+2x*INT (RND+x18) 

PLOT X-1,Y 

PLOT X-2,Y 

LET AS(X,Y)="2" 

IF AS(X+2,Y)< >" _” AND A$(X-2,Y) 
<>'"_" AND A$(X,Y+2)<>"_" AND 
AS(X,Y—2)<>"_" THEN GOTO 400 
UNPLOT X,Y 

PLOT X,Y 

LET R=INT (RNDx4) 

LET C=X+2x*x(R=0)-2*(R=1) 

LET D=Y+2x(R=2)-2x*(R=3) 

IF AS(C,D)< >"_" THEN GOTO 230 


290 
300 
310 
320 
340 
350 
360 
370 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490) 
500 
510 
540 
550 
560 
590 
600 
610 
640 
650 
660 
690 


LET E=(C+X/2 
LET F=(D+Yy2 
LET AS(C,D)="1" 
LET AS(E,F)="1" 
PLOT EF 

LET x=C 

LET Y=D 

GOTO 220 

LET AS(X,Y)="2" 
PLOT X.Y 
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IF AS(X+1,Y)=""1" THEN GOTO 500 
IF AS(X—1,Y)="1" THEN GOTO 550 
IF AS(X,Y+1)="1" THEN GOTO 600 
IF AS(X,Y—1)="1" THEN GOTO 650 


LET Y=4+2x*INT (RND+18) 


PLOT 61,Y 
PLOT 62,Y 

STOP 

LET AS(X+1,Y)="2" 
LET X=X+2 

GOTO 220 

LET A(X-1,Y)="2" 
LET X=X-2 

GOTO 220 

LET AS(X. Y+1)="2" 
LET Y=Y+2 

GOTO 220 

LET AS(X,Y-1)="2" 
LET Y=Y-2 

GOTO 229 
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Muertos vivientes 


Es usted prisionero de una isla en la que habitan muertos vi- 
vientes (zombies) cazadores de hombres (en la pantalla los 
zombies son signos +). Su única esperanza de salvación con- 
siste en conducir a los muertos vivientes a los pantanos donde 
su aspecto es todavía más horrible. Son bastante tontos, de 
forma que no ven los pantanos hasta que ya es demasiado 
tarde. Sin embargo, sí le ven a usted y se dirigen hacia su si- 
tuación donde quiera que esté. Cuando le alcanzan, se ava- 
lanzan sobre usted y el juego termina. Espere hasta que todos 
los zombies se hayan movido antes de introducir su movi- 
miento. Para moverse utilice las teclas “5”, “6”, “7” y “8” y 
se desplazará en la dirección de las flechas que figuran en di- 
chas teclas. 


lla 


j BESISEN ERUSSISSA 


Y 
A LES + 4 


S 
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Programa 16: Muertos vivientes 


10 
20 
30 
40 
50 


60 


70 
80 
9 
100 
110 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 


GOTO 1000 

LET Z5=INKEYS 

IF-Z$=" " THEN GOTO 20 

PRINT AT EF; "MW 

LET E=E+(Z$="6" AND E<20)-(Z$=""7" AND 
E> 1) 

LET F=F+(Z$="8" AND F<30)-(Z$="5" AND 
FS1) 

PRINT AT EF; EY” 

FOR A=1 TO 29 

IF A(A)=0 THEN GOTO 190 

PRINT AT A(A),B(A); "MW 

IF ABS (E-A(A))>ABS (F-B(A)) THEN GOTO 
149 | 

LET B(A)=B(A) -—(B(A)>F)+(B(A)<F) 

GOTO 150 

LET A(A)=A(A)—(A(A)>E) + (A(A)<E) 

PRINT AT A(A),B(A); 

IF VAL AS=151 THEN GOTO 210 

IF VAL A$=8 THEN LET A(A)=0 

IF A(A) THEN PRINT +” 

NEXT A 

GOTO 20 

FOR A=149 TO 191 

PRINT AT E,F:CHR$ A 

NEXT A 

STOP 
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1000 


1010 
1020 


1030 
1040 


1050 


1060 
1070 
1080 
1090 
1100 
1110 


1120 
1130 
1149 
1150 
1160 


1170 
1180 
1190 
1200 


PRINT Aa 
O E o O E E 

pd 

FOR A=1 TO 20 

PAINT 70888 1008 MO O O O O O O O O O O MO 
AAA AAA AE 
NEXT A 

PRINT “HEN 
pod dk dE [dh Ed. Ji 
mE” 

LET A$="PEEK (PEEK 16398 +256*PEEK 
16399)" 

DIM A(20) 

DIM B(20) 

LET E=11 

LET F=16 

FOR A=1 TO 30 

PRINT AT INT (RNDx16)+2, 

INT (RND+27)+2;"E" 

NEXT A 

FOR A=1 TO 20 

LET A(A)=11+INT (RND+9)*SGN(RND — 5) 
LET B(A)=16+INT (RND+14) *SGN (RND-—.5) 
IF A(A)>7 AND A(A)<15 AND B(A)>11 AND' 
B(A)<20 THEN GOTO 1140 

PRINT AT A(A),B(A);"+" 

NEXT A 

PRINT AT EF: EY 

GOTO 20 
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Poker de dados 


En esta versión del Poker de dados siempre empieza jugando 
su computadora Timex Sinclair. Las líneas comprendidas en- 
tre la 1000 y la 1070 inicializan las variables y los vectores, en 
la línea 1000 se otorga a la cadena A$ el valor “9TIJQKA”. 
Las líneas comprendidas entre la 20 y la 40 producen un lan- 
zamiento al azar. 

El turno de la computadora se controla desde la línea 50 a 
la 150 junto con la subrutina comprendida entre la 500 y la 
580, donde la computadora decide si desea lanzar algunos 
dados de nuevo. Puede añadir un bucle de retardo para dar la 
impresión de que la computadora se toma su tiempo para 
pensar. 

Las líneas comprendidas entre la 230 y 310 son para el 
oponente. Si desea lanzar los dados dos, tres y cuatro de 
nuevo, introduzca “234”. Introduzca “0” si no desea lanzar de 
nuevo. 

Tal vez desee añadir una rutina que le indique quién ha 
ganado. Sería en realidad hacer el programa bastante más 
largo y no merece la pena. 

Después de cada juego, la computadora se toma un breve 
descanso antes de empezar un nuevo juego. 


TS1000 ELAYER 
Sad S  "o05EeE 
TS 303 
ua 


93 


94 / Capítulo 17 


Programa 17: Poker de dados 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
19 
200 
210 
220 
230 
249 
250 
260 


270 


GOTO 1000 

LET A(A)=INT (RND+*6)+1 
LET B$(2xA)=AS(A(A)) 
RETURN 

FOR A=1 TO 5 

GOSUB 20 

LET B(A(A))=B(A(A) +1 
NEXT A 

PRINT TAB 10:85 

PRINT 

FOR G=1 TO 2 

GOSUB 500 

PRINT TAB 10;B$ 

PRINT 

NEXT G 

PRINT TAB 12;"PLAYER” 
PRINT 

FOR C=1 TO 5 

LET C$(2*C)=AS$ (INT (RND+6)+ 1) 
NEXT C 

PRINT TAB 10;C$ 

PRINT 

FOR G=1 TO 2 

INPUT DS 

IF D$=""0" THEN GOTO 300 
FOR C=1 TO LEN D$ 

LET C$(2xVAL D$(C))=AS(INT (RNDx6)+1) 


280 
290 
300 
310 
320 
330 
340 
350 
500 
510 
520 
530 
535 
540 
550 
560 
570 
580 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
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NEXT C 

PRINT TAB 10:C$ 

PRINT 

NEXT G 

FOR A=1 TO 200 

NEXT A 

CLS 

RUN 

DIM R(6) 

FOR B=1 TO 6 

IF B(B)<2 THEN LET R(B)=1 
NEXT B 

DIM B(6) 

FOR A=1 TO 5 

IF R(A(A)=1 THEN GOSUB 20 
LET B(A(A) =B(A(A) +1 
NEXT A 

RETURN 

LET AS='"ElnIeIGN 

DIM B$(10) 

DIM A(5) 

DIM E(6) 

DIM CS(10) 

PRINT TAB 13;"TS1000". 
PRINT 

GOTO 50 
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Antimind 


Este es un programa para jugar al MASTERMIND, pero en 
lugar de que sea usted quien adivine una combinación elegida 
por la computadora, es ésta quien adivinará la combinación 
elegida por usted. 

Su código de cuatro dígitos debe estar formado por nú- 
meros comprendidos entre 1 y 6.Una vez que la computa- 
dora haya escrito una combinación, introduzca su puntuación 
en forma de cadena (por ejemplo, “21” o “03”), siendo el pri- 
mer dígito el número de “muertos” (dígito y lugar correctos) 
y el segundo el número de “heridos” (dígito correcto pero en 
lugar erróneo). 

El programa es bastante lento. Puede tardar hasta 4 mi- 
nutos en tomar una decisión (aunque esto no es lo más co- 
mún), la mayor parte de las veces tardará alrededor de 1 mi- 
nuto. De vez en cuando puede responder en segundos. La 
línea 350 es justamente la que controla la respuesta de la 
computadora que más le gustará ver. El programa debe eje- 
cutarse siempre en el modo rápido (FAST). 

El núcleo del programa está entre las líneas 240 y 260, 
que permiten a la computadora trabajar con los códigos co- 
rrespondientes a dígitos repetidos, también son importantes 
las líneas comprendidas entre la 370 y 400 que aceleran el 
programa permitiendo la salida de los bucles. Si pretende en- 
gañar, la línea 450 se lo dirá. Los bucles cuyas variables de 
control son Z, Y, W y X corresponden uno a cada dígito del 
código. Puede cambiar el programa para tener un código con 
dígitos comprendidos entre uno y nueve. Cambie para ello las 
líneas 30, 70, 80, 90 y 100. Sin embargo, de este modo el pro- 
grama será demasiado lento. 
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ES WHHITE 
PR 


E E UE a 

22222 2 E a 

E TS er i 

22 3d y 3 a 

+ 2344 S 2 E 

22064 2 2 

22d 1 a 

Z GUESSEC YOUR CODE 1 7 TRIES 


Programa 18: Antimind 


10 PRINT TAB 8; ERA _ WHITE” 

20 DIM A(10,5) 

30 LET Z$="123456123456" (INT (RND+*6)+1 TO ) 
40 LETS=1 

50 LETG=1 

60 LETOQ=1 

70  FORZ=STO 6 

8Y FORY=STO 6 

9 FORX=STO 6 

100 FORW=STO 6 

110 LET A(G,1) 
120 LET A(G,2) 
130 LET A(G,3) 
149 LET A(G4) 
150 IF Q=1 THEN GOTO 290 
169 FOR T=1 TO G-1 

170 LETE=4 

180 LETK=A(T,1) 

199  LETL=A(T,2) 

200 LETM=A(T,3) 

210  LETN=A(T,4) 


Il 


Z 
N 
X 
W 
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220 
230 
240 


250 
260 
270 
280 
290 


300 
310 
320 
330 
340 
350 
360 


370 
380 
390 
400 
410 
420 
430 
44 
450 


FOR P=1 TO 4 

LET R=A(G,P) 

LET E=E-—(R< >K AND R< >L AND R< >M 
AND R<>N) 

NEXT P 

LET E=E+9x((Z=K)+(Y=L)+(X=M)+(W=N)) 
IF E< >A(T,5) THEN GOTO 410 

NEXT T 

PRINT AT G,0;25(2);"_"Z5(1);"_"Z5(X); 
_1ZS5(W); 

INPUT AS 

PRINT “"_ _“A$(1)"_- _-_ _”¡A$(2) 
LET A(G,5)=VAL A$ 

LET Q=P 

LET G=G+1 

IF G=11 THEN PRINT “| GIVE UP”;D 

IF VAL A$=40 THEN PRINT ,''I_GUESSED_ 
YOUR_CODE_IN_“¡G-1;"_TRIES”;D 

IF VAL AS=0 THEN LET S=S+1 

IF VAL A$< 10 THEN GOTO 440 

IF VAL A$<20 THEN GOTO 430 

IF VAL A$<30 THEN GOTO 420 

NEXT W 

NEXT X 

NEXT Y 

NEXT Z ¿ 

PRINT ,'1_THINK_YOU_CHEATED”';¡D 


En esta versión de este supuestamente antiguo juego oriental, 
tiene que coger un número de objetos de entre aquellos que 
aparecen en la pantalla, intentando ser el jugador que coja el 
último objeto, para ser así el ganador. Hay un número 
máximo de objetos que se pueden tomar, en este programa el 
máximo puede estar comprendido entre tres y cinco. La com- 
putadora fija el máximo en cada juego. 

El algoritmo utilizado es muy simple. Se observará en la 
línea 180 que si la computadora comprueba que va a perder, 
envía el control a la línea 240, donde se resta un número 
aleatorio de objetos. Posiblemente desee añadir un par de lí- 
neas para que la computadora cometa deliveradamente algún 
error y tener así alguna posibilidad de ganar. Durante su 
turno pulse simplemente la tecla correspondiente al número 
de objetos que desea retirar. 


THERE ARE 25 LEFT, THE MAxIMUM 
You CAN TRKHE 13 = 
HQ MANY NILL Volt TARET 
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Programa. 19: Nim 


10  LET A=INT (RND*12)+20 
20  LET B8=INT (RND+3)+3 
30 LETD=B+1 
49 CLS : 
50 IF A=0 THEN PRINT AT 10,13; IMWEN 0 
60 GOSUB 260 
70 PRINT AT 10.0; "THERE_ARE_";A;"_LEFT, 
THE_MAXIMUM” 
80 PRINT AT 12.6;"YOU_CAN_TAKE_IS_":B 
90M  PRINT AT 14,4; "HOW_MANY _WILL_YOU_ 
TAKE?” 
100 IF INKEYS=""" THEN GOTO 100 
110 LET C=VAL INKEYS 
120  LETA=A-C 
130  LETN=A 
140 CLS 
150 IF A=0 THEN PRINT AT 10,12; "MOUNT o 
160  GOSUB 260 
170 LETC=0 
180 IF INT (A/D)*FD=A THEN GOTO 240 
19) LET A=A-—(A-—INT (A/D)*D) 
200 PRINT AT 10,12;"1_TOOK_'"¡N—A 
210 FOR E=1 TO 50 
220 NEXT E 
230 GOTO 40 
249 LETA=A-—INT (RND+B)-—1 
250 GOTO 200 


260 
270 
280 
290 


FOR E=1 TOA 


PRINT EJ 
NEXT E 
RETURN 
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20 


Cien 


En este juego usted y la computadora se turnan para lanzar 
un dado tantas veces como quieran, sumando el resultado a la 
puntuación obtenida hasta el momento. 

Sin embargo, si obtiene un uno pierde los puntos conse- 
guidos en ese turno. Puede parar cuando lo desee, asegurán- 
dose de este modo los puntos obtenidos en ese turno y pa- 
sando el dado a la computadora. Gana el primero que llegue 
a los 100 puntos. 

El algoritmo de decisión de la computadora está contenido 
en la línea 320. La computadora continúa lanzando si lleva 
más de 30 puntos de desventaja, también continúa si en ese 
turno lleva menos de 13 puntos o menos de dos tiradas, así 
como si el oponente tiene más de 86 puntos. Se parará si ha 
conseguido más de 100 puntos. Pruebe varias estrategias de 
este tipo para examinar los resultados que obtiene la compu- 
tadora. Para lanzar introduzca “Y” o “N” como respuesta a la 
pregunta de la línea 90. 


11 0 
11 0 
23 15 
33 29 
46 44 
59 58 
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Programa 20: Cien 


10 LETA=0 
20 LETB=0 
30 LETE=0 
40 PRINT AT 07: MEM TAB 20; M0) 
50 LETC=0 
60 LETD=0 
70 LETF=0 
80 LETE=E+1 
90 PRINT AT 21,4; "PRESS_Y_TO_ROLL_N_TO_ 
STOP” 
100 LET Z$=INKEYS 
110 IF Z$="" THEN GOTO 100 
120 PRINTAT 21,4________ == 
130 IF Z$="N" THEN GOTO 210 
140 PRINTATE9;"__” 
150 LET G=INT (RND+6)+1 
160 IF G=1 THEN GOTO 200 
170 LETD=D+G 
180 PRINT AT E,9:D 
199 GOTO 9 
200 LETD=0 
210 LETB=B+D 
220 PRINT AT E9;B 
230 IF B>=100 THEN PRINT AT E+1,7; 
4 YOU_ WON Je] 
240 PRINTATE/23;"__” 
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250 
260 
270 
280 
290 
300 
310 
320 


330 
340 
350 
360 
370 
380 


LET H=INT (RND+6)+ 1 
LETF=SEN1 

IF H=1 THEN GOTO 340 

LETC=C+H 

PRINT AT E,23:C 

FOR J=1 TO 20 

NEXT J 

IF (B-A—C<30 AND C>13 AND F>2 AND 
B<86) OR A+C>=100 THEN GOTO 350 

GOTO 240 

LETC=0 

LET A=A+C 

PRINT AT E,23:A 

IF A>=100 THEN PRINT AT E+1,22; MON 0 
GOTO 50 
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Tic-Tac-Toe 


Este es un programa que juega al Tic-Tac-Toe de una forma 
muy elaborada y difícil de superar. Puede elegir entre mover 
primero o segundo. Sus fichas son las O y las de las computa- 
dora las X. Espere a que cambie el tablero antes de introdu- 
cir su movimiento, para ello introduzca un número compren- 
dido entre 1 y 9 que debe corresponder a la casilla a la que 
quiere mover. 

Es de notar el uso que hace este programa de la posibili- 
dad del TS1000 de dividir cadenas (líneas desde 20 a 40). Eje- 
cute el programa en el modo lento (SLOW). El programa no 
dice quién ha ganado, por tanto, debe jugarse hasta el final. 


Programa 21: Tic-Tac-Toe 


10 GOTO 1000 
20 PRINT AT 3,11:A$(1 TO 11) 
30 PRINT AT 7,11:A$(13 TO 23) 
40 PRINT AT 11,11:A$(25 TO 34) 
50 RETURN 
60 GOSUB 20 
70 IF D=9 THEN GOTO 1000 
80 IF D=3 AND (A(1)=1 AND A(9)=1 OR A(3)=1 
AND A(7)=1) THEN LET B$=C$ 
105 
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9 

95 
100 
110 


120 
130 
140 
150 
155 
160 
165 
170 
180 
199 


200 
210 


220 
230 
240 
250 
260 
270 
280 
290) 
300 
310 


LET D=D+1 

FOR E=-2 TO 2 STEP 4 

FOR A=1 TO 3 

IF A(A*3—2)+A(Ax*3—1)+A(Ax*3)=E THEN GOTO 
190 

IF A(A)+A(A+3)+A(A+6)=E THEN GOTO 210 
NEXT A 

IF A(1)+A(5)+A(9)=E THEN GOTO 230 

IF A(8)+A(5)+A(7)=E THEN GOTO 250 

NEXT E 

FOR C=1 TO 9 

LET B=VAL B$(C) 

IF A(B)=0 THEN GOTO 260 

NEXT C 

LET B=(A*3—2)*x(NOT A(A*3—2))+(A*x3—1) x* 
(NOT A(A*+3—1))+(Ax*3)*x(NOT A(A+*3)) 

GOTO 260 

LET B=Ax (NOT A(A))+(A+3) * (NOT 
A(A+3))+(A+6)*x(NOT A(A +6)) 

GOTO 260 

LET B=(NOT A(1))+5*(NOT A(5))+9*(NOT A(9)) 
GOTO 260 

LET B=3x*(NOT A(3))+5x*(NOT A(5))+7*(NOT A(7)) 
LET A$(Bx4-—2)="X" 

LET A(B)=-1 

GOSUB 202 

IF D=9 THEN GOTO 1000 

LET Z5=INKEYS 

IF Z5="" THEN GOTO 300 


320 
330 
340 
350 
1000 


1010 
1020 
1030 
1040 
1050 


1060 
1070 
1080 


1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
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LET AS(VAL Z$*4-2)="0" 

LET A(VAL Z$)=1 

LET D=D+1 

GOTO 60 

LETAS="_1_M_2 M_ 3 M + Ms M 
_-6_ M7 M se M_ o 

LET B$="573914826" 

IF RND<.2 THEN LET B$="159378246" 

LET C$="431978625" 

DIM A(9) 

PRINT AT 16,2:"DO_YOU_WANT_TO_GO_ 
FIRST? _(Y/N)” 

LET Y=INKEYS 

IF Y$=""" THEN GOTO 1060 

PRINTATIC 200 a 
FOR A=1 TO 6 

PRINT AT A+2,11:___M___ MW 

NEXT A 

PRINT AT511 MENO A 
PRINT AT911 MENO AN 
LET D=0 

IF Y$="Y" THEN GOTO 280 

GOTO 60 


Otra versión 


Se presenta a continuación otra versión del Tic-Tac-Toe con 
un programa completamente distinto. Es interesante compa- 
rar los dos programas. 
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Al contrario que sucede con la mayor parte de las ver- 
siones de'este juego, en ésta es posible ganar a la computa- 
dora. Algunos movimientos se realizan instantáneamente, 
otros, en cambio, tardan alrededor de diez segundos. La es- 
trategia consiste en intentar localizar un movimiento ganador, 
si no existe, se comprueba si el oponente tiene esa posibilidad 
en el siguiente turno y si se encuentra se bloquea. Si el opo- 
nente tampoco puede ganar en el siguiente movimiento, la 
computadora moverá al azar. El programa reconoce las situa- 
ciones en las que alguien ha ganado o se han producido ta- 
blas. 

Todas las respuestas se detectan utilizando la función IN- 
KEYS$, por tanto, no es preciso pulsar ENTER. Las res- 
puestas deben contener un único carácter. Se le preguntará al 
principio si quiere mover primero, de ser así, pulse “Y”; en 
caso contrario, pulse “N”. 

Esta figura muestra la disposición de los números corres- 
pondientes a las casillas del tablero: 


11213 
4[s|6 
7189 


A continuación del listado sigue una explicación del pro- 
grama. 


Programa 21A: Tic-Tac-Toe 


2 RAND 
5 LETX=0 

10 DIM BS(9) 

12 PRINT AT 0,0:"DO_YOU_WANT_FIRST_GO_ 

(Y_OR_N)?" 

14 LET AS=INKEYS 

16 IF AS<>"Y" AND A$<>"N” THEN GOTO 14 

18 CLS 


20 


25 
30 
40 
50 
60 
70 
80 


85 

90 
100 
110 
111 
112 
114 
116 
120 
130 


140 
150 
160 
170 
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PRINT AT 5,13/1H283""TAB 13; "58% 
ES". TAB 134536": TAB 13;" 
HEEE”. TAB 13 7H8 No" 

IF AS="N" THEN GOTO 100 

PRINT AT 12,12;"YOUR_GO” 

LET AS=INKEYS 

IF A$<"1" OR A$>"9" THEN GOTO 49 

IF B$ (CODE A$-—28)>"_” THEN GOTO 49 
LET B$(CODE A$-28)="0" 

PRINT AT CODE "MMDMDIPIPP bs ts ts (CODE 
A$—28), CODE "'$?)$?)$?)" (CODE A$—28);B$ 
(CODE A$-28) 

LET A$="000" 

GOTO 300 

REM **TS1000 MOVE” 

PRINT AT 12,12;"_MY_GO_" 


IF BS(5)="_" THEN LET F=5 
IF BS(5)="_” THEN GOTO 240 
FOR B=1 TO 2 


LET C$="X0"(B)+"X0"(B) 

FOR A=1 TO 70 STEP 3 

LET A$="15919559135757337512313223145656 
446578979898714747117425828558236939669 
3"(A TO A+2) 

LET D=CODE A$-28 

LET E=CODE A$(2)-28 

LET F=CODE A$(3)-28 

IF B$(D)+B$(E)=C$ AND BS(F)="_” THEN 
GOTO 240 
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180 
19 
193 
195 
197 
198 
200 
240 
250 


260 
300 


304 
307 
310 


320 


NEXT A 
NEXT B 

LET A$="" 

FOR A=1 TO 9 

IF BS(A)="_" THEN LET AS=A$+CHR$ A 

NEXT A 

LET F=CODE AS(INT (RND+LEN AS)+1) 

LET BS(F)="X" 

PRINT AT CODE "DIDDPIEAB be to is) 
(F),CODE "5?)$7)5?)'"(F):BS(F) 

LET A$="XXX" 

IFBS$(_ TO 3)=A$ OR B3(4 TO 6)=A$ OR 

B$(7 TO )=A$ OR B3(1)+B8(1)+B5(4)+B5(7)=A$ 
OR B5(2)+BS(5) +B$(8) =A$ OR BS(3) + B$(6) + B$(9) 
=A$ OR B3(1)+B$(5) +85 (9)=A$ OR B$(3) 

+B8(5) +BS(7)=A$ THEN GOTO 320 

LET X=X+1 

IF X=9 THEN GOTO 350 

GOTO (30 AND A$="XXX")+(100 AND 


A$="000") 
IF AS="000" THEN PRINT AT 12,12;"YOU _ 
WIN” 


WIN A CRA YGu um 
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330 IF AS$="XXX" THEN PRINT AT 12,12;"_1_WIN_” 
349 STOP 
350 PRINT AT 12,12;"A_DRAW” 


Notas al programa 


Línea 2: Ejecuta RAND para inicializar la serie de números 
aleatorios que se genera. 

Línea 5: Inicializa el valor de X que es la variable que 
cuenta el número de jugadas realizadas y que es útil para de- 
terminar cuándo se han producido tablas. 

Línea 10: Inicializa la variable B$ con 9 espacios. B$ es la 
cadena que contiene la situación del tablero. Los elementos 
de la cadena se corresponden con los caracteres que aparecen 
en el tablero de la pantalla. Por ejemplo, B$(5) corresponde 
a la casilla central del tablero. 

Línea 12: Pregunta al jugador quién inicia el juego. 

Línea 14: Escudriña el teclado buscando la respuesta del 
oponente. 

Línea 16: Continúa escudriñando el tablero hasta que no 
se pulse “Y” o “N”. 

Línea 18: Borra la pregunta de la pantalla. 

Línea 20: Imprime el estado inicial del tablero junto con 
los números que indican al jugador las teclas a pulsar para ac- 
ceder a cada posición del tablero. 

Línea 25: Si el oponente decide no jugar primero (pul- 
sando N), se manda el control a la línea 100 para que mueva 
la computadora. 

Línea 30: Imprime un mensaje indicando que es el turno 
del oponente. g 

Línea 40: Escudriña el teclado buscando el movimiento 
del oponente para almacenarlo en AS. 

Línea 50: Si A$ no contiene un movimiento válido, es de- 
cir si la tecla pulsada no corresponde a un número compren- 
dido entre uno y nueve, continúa escudriñando hasta que se 
introduce un movimiento válido. 

Línea 60: Si la casilla elegida por el oponente ya contiene 
una O o una X se devuelve el control a la línea 40. 
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Línea 70: Coloca una O en la casilla elegida por el opo- 
nente (situa una O en el elemento correspondiente de la ca- 
dena B$). 

Línea 80: Imprime el movimiento. Las coordenadas X e Y 
para la instrucción PRINT AT se obtienen aplicando la fun- 
ción CODE a unas cadenas apropiadas. 

Observese cómo se usa (CODE A$-28) para decodificar 
las cadenas en números en lugar de usar VAL A$, la razón es 
que CODE A$-28 es aproximadamente un 50 % más rápida 
que VAL, en este caso no tiene demasiada importancia pero 
cuando se está dentro de un bucle como más tarde se verá es 
un ahorro muy significativo de tiempo. 


Línea 85: Almacena tres O en A$ para comprobar en una 
rutina si alguien ha ganado. A$ actúa también como una ban- 
dera para indicar a la rutina dónde volver si el juego no ha- 
terminado. 

Línea 90: Envía el control a la línea 300 para comprobar 
si hay un vencedor o se han producido tablas. ¿Por qué no se 
utiliza GOSUB? Puede que no se retorne si el juego ha con- 
cluido porque alguien ha ganado o se han producido tablas, 
por tanto la dirección de retorno se quedaría en la pila y ésta 
llegaría a llenarse después de algunos juegos. Si se trabaja 
con una máquina con una capacidad de 2K pronto se acabaría 
la memoria destinada a la pila y tendría que ejecutar varias 
veces seguidas la instrucción RETURN con objeto de descar- 
gar la pila. Por este motivo se utiliza GOJO. 

Línea 100: Sentencia REM para identificar la parte del 
programa donde se genera el movimiento de la computadora. 
Si tiene intención de modificar el programa con objeto de 
ahorrar memoria, ésta línea debería ser la primera en ser bo- 
rrada. 


Línea 110: Imprime un mensaje indicando que es el turno 
de la computadora. 

Líneas 111 y 112: Si el centro del tablero esta disponible, 
ese será el movimiento de la computadora. F es una bandera 
que indica qué movimiento ha elegido hacer la computadora. 
Se utiliza más tarde en la rutina que imprime el movimiento 
de la computadora. 
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Líneas desde la 114 a la 190: Se trata de una rutina que 
ejecuta un movimiento ganador de la computadora o bloquea 
un movimiento ganador del oponente, por este orden y si 
existen. Mira el tablero y si localiza dos caracteres idénticos 
en una línea actúa en consecuencia. Esta busqueda en el ta- 
blero para encontrar dos piezas iguales en una línea se realiza 
en dos fases, primero se buscan X (posible movimiento gana- 
dor de la computadora) y después se buscan O (posible movi- 
miento ganador del oponente). En esta búsqueda la variable 
C$ indica el carácter que se está buscando. A$ es una cadena 
de tres caracteres, los dos primeros indican las dos casillas 
que deben investigarse para buscar caracteres iguales y si el 
resultado es positivo el tercer carácter indica donde debe mo- 
ver la computadora. 

Líneas 140, 150 y 160: Convierte los caracteres de A$ en 
números. Apréciese que se utiliza CODE A$-28 en lugar de 
VAL A$ con lo que se gana velocidad. Este procedimiento 
sólo puede utilizarse con números. 

Líneas desde la 193 a la 240: Si no es posible un movi- 
miento ganador ni para la computadora ni para el oponente, 
la computadora mueve al azar eligiendo una de las casillas no 
ocupadas. 

Línea 250: Imprime el movimiento. 

Línea 260: Es igual que la línea 85 pero inicializa A$ para 
las X. 

Línea 300: Comprueba si alguien ha ganado y de ser así 
envía el control a la rutina del final del juego. 

Línea 304: Incrementa el contador de movimientos. Si 
este contador alcanza el valor 9 se han producido tablas o al- 
guien ha ganado. 

Línea 310: Si el juego no ha concluido se devuelve el con- 
trol a donde se realiza el movimiento del oponente o de la 
computadora dependiendo de que el valor de A$ sea “OOO” 
o “XXX”. 

Líneas desde la 320 a la 350: Imprime el ganador, o si no 
lo hay anuncia las tablas. 
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Solitario 


El objetivo de este juego es que al final sólo quede una pieza 
en el tablero, preferiblemente en el centro. Una pieza se eli- 
mina del tablero si se salta por encima de ella con otra pieza. 
Para mover una pieza introduzca una cadena de tres carac- 
teres, primer y segundo caracteres corresponderán a las coor- 
denadas de la pieza que se pretende mover y el tercero indica 


el tipo de movimiento que desea de acuerdo con la siguiente 
lista: 


5-Para mover hacia la izquierda 
6-Para mover hacia abajo 
7-Para mover hacia arriba 
8-Para mover hacia la derecha. 


Observará que las flechas correspondientes a las teclas en 
las que figuran estos números le serviran de recordatorio. 


A 
$ 
e 
Cy 
EE 


NNSUnN SuLITRIRE 
ESTELAR RRA RA RAR a 
GHAAARAARARA RARO 
HARIAS HARI 
LARA RARA AAA Y PESS LEFT 
TELLA 
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Líneas 500-520: Determinan si hay algún blanco (de 
tiro) más a la izquierda. 


Adaptaciones posibles 


1. El número de armas puede ser aumentado a más 
de tres. Esto significaría que la línea 100 tendría que ser 
cambiada, así como las líneas 300-320. 


2. Se podría hacer que las estrellas viajaran más de 
prisa. Esto significaría un cambio en las líneas 170-190. 
Para aumentar la velocidad en un factor de 1,5, los si- 
guientes cambios podrían ser implementados: 


170 LETYS$=X$(1 TO 3) 
180 LET X$(1 TO 29)=(4 TO 32) 
190 LET X$(30 TO 32)=Y$ 


3. El número de disparos puede ser cambiado de 
veinte a cualquier otro número que usted elija. 
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Capítulo 17 «RICOCHET» 
(Fuego de rebote) 


e El juego 

e Programa 17: «RICOCHET» (Fuego de rebote) 
e Puntos de interés 

e Adaptaciones posibles 


El juego 


En este juego usted está siendo atacado por bolas de 
fotones de alto poder que están siendo dirigidas hacia 
usted por unos agresores intergalácticos. Usted es el 
único que tiene control de las cinco estaciones terrestres 
que quedan. Los agresores no pueden dispararle directa- 
mente; se ven obligados a disparar sobre un satélite en 
órbita, desde el cual sus disparos son rebotados hacia 
usted. 

Siempre que una bola de fotones es rebotada en el 
satélite, se dirigirá hacia sus cinco estaciones. Es enton- 
ces cuando usted puede activar sus escudos defensivos, 
con la salvedad de que en ningún momento puede de- 
fender sólo una estación. Las teclas 1, 2, 3, 4 y 5 son 
usadas para activar sus defensas. Si tiene éxito, su esta- 
ción quedará intacta y acumulará energía adicional re- 
presentada por los puntos extra ganados. Si no logra 
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A , 
77 


defender su estación a tiempo o defiende una estación 
errónea, entonces la estación que estaba siendo atacada 
será demolida. Para que funcione su complejo aparato 
de defensa, debe mantener al menos dos estaciones in- 
tactas. Por esta razón el juego termina cuando sólo le 
queda una estación. 


Programa 17: «RICOCHET» (Fuego de rebote) 


5 DIMA(5) 
10 FORI=5TO 15 
20 PRINTAT 11. "M- 
30 NEXT | 
40 PRINTAT110"MW____AM 
A 


45 LET H=0 


8__ A 
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50 PRINTAT20,10"W_ _ AM E 
_—_ 
55 LETP=0 


60 LET X=INT (RND*5+1) 
70 GOSUB X*100+100 
75 LET J=(X-1)*5+10 
80 FOR |=2 TO 10 
90 PRINT AT 1.J:"0" 

100 PRINTAT1J:"_" 

110 LET J=J+K 

130 NEXT | 

150 GOTO 650 

200 LET K=-1 

210 RETURN 

300 LET K=-1.5 

310 RETURN 

400 LET K=-2 

410 RETURN 

500 LET K=-2 5 

510 RETURN 

600 LET K=-3 

610 RETURN 

650 LET X=INT (RND*5+1) 

660 GOSUB x*100+100 

670 LETJ=2 

680 FOR |=11TO 19 

690 PRINT AT 1J:"0" 

700 PRINTATI1J;"_" 
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710 LET J=J-K 
715 IFINKEYS< >""THEN GOSUB 850 


720 NEXT | 

730 PRINT AT 20. (X-1)*5+10,"_" 

735 IF A(X)=1 THEN GOTO 810 

740 LET H=H+1 

745 LET A(X)=1 

750 IF H<4 THEN GOTO 810 

760 PRINTAT 12,112 "RIPENIES) 

770 STOP 

800 LET P=P+500 

810 PRINTAT 21,10:"PUNTUACION=_";P 

820 GOTO 60 

850 LET YS$=INKEYS 

860 IF Y$>="1" AND Y$<-="5"THEN GOTO 880 
87% GOTO 720 

880 IF VAL YS$=X AND A(X)=0 THEN GOTO 800 
890 GOTO 720 


Puntos de interés 


Líneas 60-75: El ángulo con el que la bola de fotones 
es dirigida se controla en las líneas 60-75. 


Líneas 200-610: El desplazamiento de las bolas de 
fotones, según cada uno de los 5 diferentes ángulos, es 
controlado en las líneas 200-610. Esta rutina, con ayuda 
de la línea 710, también se hace cargo de los ángulos de 
reflexión. 


Líneas 730-745: Estas líneas se encargan de la elimi- 
nación de cualquier estación demolida y además ase- 
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guran que las bolas de fotones ya disparadas no causen 
mayor daño. 


Líneas 850-890: La rutina de estas líneas chequea si 
el escudo protector correcto ha sido activado. 
Adaptaciones posibles 


Si se dispone de más de las 2K de memoria, la velo- 
cidad a la que las bolas de fotones son disparadas puede 
ser cambiada. Modificando las dos siguientes líneas: 


80 FOR |=2 TO 10 STEP 2 
y 


680 FOR |=11 TO 19 STEP 2 
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Capítulo 18 4 /NVASION 


e El juego 

e Programa 18: LA INVASION 
e Puntos de interés 

e Adaptaciones posibles 


El juego 


En este juego, cinco tipos diferentes de agresores ga- 
lácticos se han agrupado y están planeando invadir la 
tierra. A fin de lograr su objetivo, envían pequeñas na- 
ves rastreadoras que recopilan información y la devuel- 
ven a sus naves nodrizas. En este punto es cuando las 
naves rastreadoras se dirigen a la tierra en forma de mi- 
siles guiados. Su misión, como guardián de la tierra, es 
atrapar estas naves descendentes y evitar que se estrellen 
en centros de población importantes. A este fin usted 
cuenta con un «superapresador» que se puede mover a 
izquierda y a derecha: use la tecla 5 para movimiento a 
la izquierda y la 8 para desplazamientos a la derecha. 
Para movimiento rápido, use la teclá H que la proyecta- 
rá hacia el hiperespacio. 

Si su blanco es acertado, observará que la nave ata- 
cante es atrapada por su «apresador»; momento en el que 


parte de éste desaparece temporalmente. Si usted falla, 
tendrá que pagar con una de las cinco «vidas» que tiene. 

Es justo alertarle de que las naves descendentes no 
siempre caen en línea recta. Podrían caer por la dere- 
cha, por la izquierda o en diagonal. Esto es algo que se 
halla bajo completo control de la computadora. 


Programa 18: LA INVASION 


50 LETW=0 
60 LET RS-"EAA ts" 
70 LET M=0 
80 LETJ=15 
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90 
100 
105 
110 
120 
200 
210 
220 
230 
280 
300 
310 
320 
330 
340 
400 
410 
420 
430 
435 
440 
450 
460 
470 
480 
490 


495 


PRINT AT 20.) "kill ' 

LET X=INT (RND*28)+2 

LET T=INT (RND*5)+1 

IFX< 12 THEN GOTO 200 

IFX> 20 THEN GOTO 300 

LET Y=INT (RND*3)+1 

IF Y=1 THEN LET K=0 

IF Y> 1 THEN LET K=.5 

GOSUB 400 

GOTO 100 

LET Y=INT (RND*3)+1 

IF Y=1 THEN LET K=0 

IF Y> 1 THEN LET K=-.5 

GOSUB 400 

GOTO 100 

FOR |=1 TO 20 

PRINTAT |-1,X"_" 

LET x=X+K 

PRINT AT | X;RS(T) 

IFINKEYS < > ""“THEN GOSUB 500 
NEXT | 

PRINTAT |-1,X"_" 

IF J=XORJ+1=X THEN LET W=W+T* 100 
IFJ<>XAND J+1< > X THEN LET M=M+1 
IF M>=5 THEN GOTO 200 

PRINT AT 21,7:"PUNTOS=_".W:"__VIDAS=_”: 
5-M 

RETURN 
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500 LET Y$=INKEYS 

510 IFYS="5"THEN LET P=-1 

520 IFYS="8"THEN LET P=1 

525 IF Y$="H"THEN GOTO 580 

530 IF J+P>30 OR J+P< 1 THEN RETURN 

540 PRINTAT20J;"__" 

550 LET J=J+P 

560 PRINT AT 20: "hill" 

570 RETURN 

580 PRINTAT20J"__” 

590 LET J=INT (RND*30)+1 

600 GOTO 560 

900 PRINT AT 19 12 "INMI =CO) 

910 PRINT AT 21,7:"PUNTOS=_":W;"__VIDAS=_"; 
5-M 


Puntos de interés 


Líneas 100-120: Estas líneas determinan qué nave 
caerá hacia la tierra. 


Líneas 200-340: Estas líneas establecen al azar el 
sendero de la nave nodriza invasora; sería ventajoso que 
cayera en la dirección diagonal. 


Líneas 460-495: Los aciertos y los fallos son registra- 
dos en la subrutina de las líneas 460 a 495. 


Líneas 500-600: Se hacen cargo del movimiento del 
«apresador», así como del hiperespacio. La función hi- 
perespacio coloca a su «apresador» en una localización 
elegida al azar sobre la parte inferior de la pantalla. 


Líneas 900-910: Muestran los resultados finales. 
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Adaptaciones posibles 


Podría, si lo desea, aumentar los contornos de las 5 
diferentes naves descendentes. Esto puede ser realizado 
cambiando la línea 60. Sin embargo, este cambio ten- 
dría que ser también reflejado en la línea 105. 
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Capítulo 19 COMBATE 
AEREO 


e El juego 

e Programa 19: COMBATE AEREO 
e Puntos de interés 

e Adaptaciones posibles 


El juego 


Usted es ahora un piloto de un caza a reacción en 
medio del más desafiante, salvaje y feroz duelo de toda 
su carrera. El avión enemigo vuela justo encima de us- 
ted y al doble de su velocidad. Podrá reconocer al avión 
enemigo porque aparecerá en la pantalla de color ne- 
gro, mientras que el suyo aparecerá en la pantalla som- 
breado de gris. Cada vez que los reactores se sobrevue- 
len, el enemigo intentará acribillar su avión dejándolo 
lleno de agujeros. Si usted es rápido, podría derribarle 
antes de que él dispare. 

Para disparar use la tecla F. Si usted hace blanco en 
el reactor enemigo, éste quedará averiado y se retirará 
hacia la parte superior de la pantalla con usted «pisán- 
dole los talones». Sin embargo, si usted fuese alcanzado 
por el enemigo, su reactor se vería obligado a descender 
a un nivel inferior mientras que el enemigo le persigue. 


El juego tiene dos desenlaces posibles: o usted logra po- 
ner en fuga al enemigo, en cuyo caso usted se convierte 
en el «rey de los cielos», o él se las vale para dañar de 
forma irreparable su reactor haciéndole aterrizar; en este 
último caso, ni que decir tiene que usted pierde el juego. 
¡A por ellos! 


Programa 19: COMBATE AEREO 


100 LET E=8 

110 LETP=11 

120 LET F=3 
1L5LETIAS=__* 
130 LET O=29 

135 CLS 

140 PRINT AT EF /X$ 
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150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
275 
280 
290 
300 
310 
320 
330 
340 
350 
360 
400 
410 
420 
430 
440 


PRINT AT E+1,F:X$ 

PRINT AT P.0:X$ 

PRINT AT P+1,0:X$ 

LET F=F+4 

IF F>29 THEN LET F=3 

LET 0=0-2 

IFO<0 THEN LET 0=29 

PRINT AT EF;” Palma * 

PRINTAT E+1F:" nan - 

PRINT AT P,O;” fendlelalll ” 

PRINT AT P+1,0;" PAPA 

IF INKEYS < >""THEN GOSUB 700 
IFF<> OQ THEN GOTO 140 

PAUSE 10 

IFINKEYS="F"THEN GOTO 400 
PRINTATP.0+1;"+" 

PRINT AT P+1,0+1;"+ 

PRINT AT 21,10;"VD._HA_SIDO_ACERTADO” 
LET P=P+2 

LET E=E+2 

PAUSE 10 

GOSUB 500 

GOTO 135 

PRINTATEF+1:"*" 

PRINTAT E+1,F+1;"*" 

PRINT AT 21,10;"VD._LE_ACERTO" 
LET P=P-2 

LET E=E-2 
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450 GOSUB 500 

460 GOTO 135 

500 PAUSE 50 

510 IFE< 1 THEN GOTO 550 

520 IFP> 19 THEN GOTO 600 

530 RETURN 

550 PRINT AT 11,3:"LO_LOGRO;_VD._ 
ES_EL_REY_DE_LOS_CIELOS" 

560 PRINT AT E+2,F:"_*_" 

570 PRINT AT E+3,F,"_*_" 

580 STOP 

600 PRINT AT 11,3:"SU_REACTOR_FUE_ 
OBLIGADO_A_ATERRIZAR” - 

610 PRINTATP-2,0:"_+_” 

620 PRINTATP-1,0;"_+_"” 

630 STOP 

700 PRINT AT P-1,0+1:"*" 

710 PRINTATP-1,0+1:"_" 

720 RETURN 


Puntos de interés 


Líneas 140-250: Los intrincados movimientos del 
reactor son llevados a cabo por las líneas 140 a 250. Es 
esta subrutina la que mantiene al caza de la computado- 
ra a doble velocidad que el suyo. 


Líneas 260-280: Estas líneas determinan si usted es 
suficientemente rápido como para acertarle cuando él le 
sobrevuela. 


Líneas 310-340: Si su reactor recibiera un disparo 
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acertado. usted será forzado a volar en un nivel inferior. 
Esto eventualmente se lleva a cabo en las líneas 310- 
340. 


Líneas 400-450: Cuando usted le acierte al reactor 
de la computadora, éste será retirado. Este es el papel 
que juegan las líneas 400-450. 


Líneas 510-630: Determinan si el juego está termina- 
do, y si es así, quién fue el ganador. 


Adaptaciones posibles 


Puede, si lo desea, cambiar la velocidad de los reac- 
tores (ver las líneas 180, 190, 200 y 210). Cambiando la 
línea 275 usted también puede alterar el intervalo de 
tiempo asignado para disparar los proyectiles cuando 
los reactores se ponen en línea o chocan. La instrucción 
PAUSE puede ser utilizada para este cambio. 
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Capítulo 20 «SK£7CH» 
(Esbozo) 


e El juego 

e Programa 20: «SKETCH» (Esbozo) 
e Puntos de interés 

e Adaptaciones posibles 


El juego 


No se deje engañar por la brevedad de este programa. 
Pese a que aparente ser tan corto, de hecho utiliza la 
mayor parte de la memoria de la T/S 1000, principal- 
mente para la construcción de las imágenes mostradas. 
La pantalla entera se convierte en su libreta de esbozos. 
La «pluma» o «pincel» es el «plotter» de la computado- 
ra. Usted es libre de dirigir la pluma para dibujar en 
cualquiera de las cuatro direcciones indicadas por las te- 
clas de las flechas (5, 6, 7 y 8). Usted tiene la oportuni- 
dad de ser tan creativo como le plazca. 

En el caso de que desee detener el movimiento de la 
pluma en un punto dado, simplemente necesita presio- 
nar cualquier tecla que no sea ninguna de las mencio- 
nadas 5, 6,7 y 8. 
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Programa 20: «SKETCH» (Esbozo) 


10 LET |=0 
20 LETJ=0 
30 IFINKEYS < >""THEN GOTO 50 
50 IFINKEYS="5"THEN GOTO 100 
60 IFINKEYS="6"THEN GOTO 200 
70 IFINKEYS="7"THEN GOTO 300 
80 IFINKEYS-="8"THEN GOTO 400 
90 GOTO 30 

100 FOR X=| TO 0 STEP-1 

110 PLOT XJ 

120 LET |=X 

140 IFINKEYS < >”""THEN GOTO 50 

150 NEXT Xx 
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160 GOTO 30 

200 FOR Y=J TO 0 STEP-1 

210 PLOT | Y 

220 LETJ=Y 

230 IFINKEYS< >”"THEN GOTO 50 
250 NEXT Y 

260 GOTO 30 

300 FORY=JTO 43 

310 PLOT | Y 

320 LET J=Y 

340 IFINKEYS< >""THEN GOTO 50 
350 NEXT Y 

360 GOTO 30 

400 FOR X=! TO 63 

410 PLOT X,J 

420 LET |=X 

440 IFINKEYS < >”""THEN GOTO 50 
450 NEXT X 

460 GOTO 30 


Puntos de interés 


Líneas 30-90: Las lecturas del teclado son llevadas a 
cabo por estas líneas. 


Líneas 100-160: Del movimiento de la pluma hacia 
la izquierda se encargan estas líneas. 


Líneas 200-260: Del movimiento hacia abajo de la 
pluma se responsabilizan estas líneas. 


Líneas 300-360: El movimiento hacia arriba de la 
pluma es controlado por estas líneas. 
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Líneas 400-460: Estas mueven la pluma hacia la de- 
recha. 

Si lee cuidadosamente este programa, se dará cuenta 
de que no aparece ninguna sentencia PRINT. Además, la 
línea dibujada es más fina que cualquiera de los caracte- 
res del teclado. ¿Cómo se logra? La respuesta estriba en 
el hecho de que las ventajas del versátil comando PLOT 
de la computadora han sido utilizadas. 


Adaptaciones posibles. 


Si lo desea, el carácter con el que se dibuja puede 
ser cambiado simplemente reemplazando el comando 
PLOT por el más convencional PRINT AT, el cual re- 
quiere que usted le especifique un carácter particular 
para dibujar. El usuario no debe olvidar, sin embargo, 
que la instrucción PRINT AT utiliza un tamaño de 
pantalla de 22x 32, mientras que PLOT utiliza una 
pantalla de tamaño 44 x 64, y usa menores «pixels». 


126 CAPITULO 20 


Capítulo 21 4VWUNCIOS 


e El juego 

e Programa 21: ANUNCIOS 
e Puntos de interés 

e Adaptaciones posibles 


El juego 


Casi todos nosotros estamos familiarizados con los 
letreros de letras en movimiento utilizados en publici- 
dad y en boletines informativos. Este último programa 
produce el mismo tipo de letreros en su propia pantalla. 
Para comenzar, conteste la pregunta «What is your 
choice?» (¿Cuál es su elección?), pulsando O y ENTER. 
Cuando la computadora le pregunte por el número de 
ciclos que desea, pulse el 3 seguido de ENTER. Usted 
debería ahora tener ante sus ojos el siguiente mensaje: 
THIS IS THE T?/S 1000... (Esta es la T/S 1000...) pasan- 
do la pantalla en vídeo-inverso. Esto lo hará tres veces. 

Ahora que ha visto como funciona el programa, po- 
demos empezar a divertirnos. En respuesta a la pregunta 
«What is your choice?» (¿Cuál es su elección?), pulse 
un l; esto le permite introducir cualquier mensaje elegi- 
do por usted, siempre y cuando tenga menos de 32 ca- 
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ecJeJeJejejeje 


000600000 


racteres. Sea cual fuere el mensaje que usted haya elegi- 
do, aparecerá ahora en pantalla para cualquier número 
de ciclos que usted haya introducido. Y cualquiera que 
sea su mensaje ya lo puede usted contemplar como un 
letrero luminoso. 


Programa 21: ANUNCIOS 


5 DIM X$(32) 

10 PRINT"PULSE_0_PARA_MENSAJE” 

20 PRINT “PULSE_1_PARA_INTRODUCIR_ 
UNO” 

30 PRINT “¿CUAL_ES_SU_ELECCION?” 

40) INPUT X 

50 IFX=0 THEN GOTO 110 

60 PRINT “INTRODUZCA_SU_MENSAJE” 

70 INPUT X$ 
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80 LET L=LEN X$ 
90 LET X$(L+1 TO 32)=" 


100 GOTO 120 

110 LET XS- ENTES 
MANO AA 

120 PRINT"N.-_DE_CICLOS” 

130 INPUT Y 

135 CLS 

140 FOR |=1 TO Y 

150 FOR J=1TO 32 

160 LET YS$=X$(1) 

170 LET X$(1TO 31)=X$(2 TO 32) 

180 LET X$(32)=Y8 

190 PRINT AT 12,0:X$ 

200 NEXTJ 

210 NEXT | 

215 CLS 

220 PRINT"¿ALGUNO_MAS?_SI_O_NO" 

230 INPUT OS | 

240 IF O$="Y"THEN GOTO 10 

250 PRINT AT 20,12: BESITOS 


Puntos de interés 


Lineas 80 y 90: Estas líneas contienen un pequeño 
truco, el cual toma cualquier cadena de caracteres que 
usted le introduzca (con menos de 32 caracteres de lon- 
gitud), y la rellena con blancos de forma que quede con 
32 caracteres de longitud. 
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Líneas 150-200: Del movimiento real de la imagen 
se encarga el código de estas líneas. Usted podrá, si lo 
desea, incorporar esta técnica en alguno de sus propios 
programas para lograr imágenes en movimiento. 


Adaptaciones posibles 


Puede, si lo desea, predefinir varios diferentes men- 
sajes y asignarles diferentes números. De esta forma los 
mensajes pueden ser mostrados «con apretar un botón». 
En caso de que usted tenga un importante mensaje que 
quiera que sea visto, podría mostrarlo por pantalla en 
una habitación que a su vez estuviera a oscuras. Sería 
del todo improbable que tal mensaje pasase desaperci- 
bido. 
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Capítulo 22 COMO SALVAR 
SUS PROGRAMAS EN UNA 
CINTA MAGNETOFONICA 


e Salvando un programa 
e La carga de un programa 
e Advertencias importantes 


El introducir un programa largo cada vez que éste se 
necesite, puede llevarle mucho tiempo. Además, el te- 
ner que introducirlo cada vez deja la puerta abierta a 
equivocaciones. Sin embargo, un programa puede ser 
salvado en cinta magnética de forma muy semejante a 
como usted ordinariamente salva una pieza de música 
grabándola en su grabadora. 


Salvando un programa 


Para salvar un programa después de que ha sido in- 
troducido en su computadora y chequeado que es co- 
rrecto, todo lo que usted tiene que hacer es teclear la 
paiabra SAVE y decidir un nombre para su programa 
en particular. Si elige el nombre «COPY CAT» (Mono 
de Imitación), por ejemplo, debería introducirlo en su 
computadora: 


SAVE "COPY CAT” 
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En este punto debe comenzar a grabar con el modo 
«recording». Entonces pulse la tecla ENTER y el pro- 
grama (o más precisamente, una copia de su programa, 
puesto que el programa reside aún en la memoria de la 
computadora) será grabado en la cinta. Usted tendrá co- 
nocimiento de cuándo la grabación está completa, por el 
código terminación 0/0 que aparecerá en la esquina in- 
ferior izquierda de la pantalla. En este punto usted pue- 
de apagar la grabadora. 


La carga de un programa 


A fin de cargar un programa desde la cinta magneto- 
fónica a la computadora, introduzca NEW seguido de 
ENTER. Ahora introduzca, o bien: 


LOAD "COPY CAT” 


que busca y carga el programa denominado «COPY 
CAT», o bien: 


LOAD "no. 


que busca y carga el primer programa completo que en- 
cuentre en la cinta. 


Advertencias importantes 


1. No olvide hacer una nota del nombre preciso del 
programa que está almacenando, incluyendo cualquier 
espacio que exista entre las palabras del nombre. Si us- 
ted salva en la cinta un programa llamado «COPY 
CAT» y más tarde intenta cargar desde la cinta un pro- 
grama llamado «COPYCAT», la computadora no será 
capaz de encontrar el programa. 


2. Hemos encontrado que tanto para salvar como 
para cargar un programa, se logran mejores resultados 
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con la grabadora en el modo «mono» (mejor que en 
«stereo»). Si su grabadora es sólo «stereo», entonces 
debería girar el control del «balance» todo hacia la iz- 
quierda o todo hacia la derecha. Además, debería situar 
el control de «volumen» bastante alto, quizá las tres 
cuartas partes del volumen total; asimismo el control de 
«tono» debiera colocarse en su posición más alta (so- 
breagudo). 
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Apéndices 


e Apéndice A: Palabras clave para la T/S 1000 

e Apéndice B: Símbolos gráficos para la T/S 1000 

e Apéndice C: El teclado de la T/S 1000 

e Apéndice D: Una copia extra del programa 1, 
«COPY CAT» (Mono de Imitación) 
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Apéndice A: PALABRAS CLAVE PARA LA T/S 1000 


Las siguientes palabras, listadas en orden alfabético, 
pueden ser accedidas en la T/S 1000 con una única pul- 
sación. Estas palabras clave siempre aparecen en LE- 
TRA NEGRILLA en los listados de programas en este 


libro. 


Palabra-clave 


ABS 

ACS 

AND 
ASN 
AT 


ATN 
CHR$ 
CLEAR 


CELS 

CODE 
CONT 
COPY 


COS 
DIM 


EXP 
FAST 
FOR 
GOSUB 
GOTO 


IF 


INKEYS 
INPUT 
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Modo 


5 ll ES un 


ES En En 


ES ES En ES 


ES hu 


ES ES E Es En 


ES El ES 


o MM 


Tecla 


G 
S 
shifted-2 


0% Nn=< 


> 


shifted-F 


QI7 


Significado 

valor absoluto 

arcocoseno 

«Y» lógica 

arcoseno 

posición específica 
para imprimir 

arcotangente 

número a carácter 

borra variables y pan- 
talla 

borra pantalla 

carácter a número 

continúa ejecución 

copia de pantalla a im- 
presora 

coseno 

dimensiona arrays y 
cadenas 

exponencial 

modo rápido 

establece un bucle 

bifurca a subrutina 

bifurcación incondi- 
cional 

testea condición 

lee del teclado 

acepta datos 
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Palabrí-clave 


INT 
LEN 
LET 
LIST 
LLIST 
LN 
LOAD 


LPRINT 
NEW 
NEXT 
NOT 
OR 
PAUSE 
PEEK 


PI 
PLOT 


POKE 


PRINT 


RAND 


REM 
RETURN 


RND 


RUN 
SAVE 
SCROLL 
SGN 
SIN 
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ES hi ES EN ES En < 


ES ESE EEE ES ES 


EJES EEN 


mn) 


hd ul ES ES EN 


é 


O 
as 


o 
a 


shifted-G 
Z 
J 


shifted-S 
A 

N 

N 
shifted-W 
M 


OZ 


O 


— "U 


Omnmwnanaza 


Significado 

devuelve parte entera 

longitud de cadena 

asignación de valores 

lista programa 

lista en impresora 

log. natural 

carga programa desde 
cinta 

imprime en impresora 

borra memoria 

indica fin de bucle 

negación 

dos o más condiciones 

pausa 

muestra la memoria en 
un punto específico 

valor de 7 

coloca «pixel» en pan- 
talla 

coloca datos en posi- 
ciones especificadas 
de memoria 

imprime «ítem» (dato) 

indica posición de co- 
mienzo de RND 

notas o advertencias 

vuelta a la GOSUB 
llamada 

función «random» (al 
azar) 


ejecuta programa 
salva en cinta 


pasa una línea 
signo de un número 
seno 
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Palabra-clave 


SLOW 
SQR 
STEP 


STOP 
STR$ 


TAB 
TAN 
THEN 


TO 
UNPLOT 
USR 


VAL 
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< 
a 
o 


E sE ERES 


ES hd 


o 


ES ES 


mn 


o 


[o] 


o 


[e] 


a a 


[A 


o) 


Tecla 


shifted-D 
H 
shifted-£ 


shifted-A 
Y 


P 
E 
shifted-3 


shifted-4 
wW 
L 


Significado 


modo lento 

raíz cuadrada 

incremento del 
FOR/NEXT 

para ejecución 

valor numérico a 
cadena 

tabuladores de espa- 
cios 

tangente 

resultante de TRUE 
(cierto) en una con- 
dición 

límites específicos 

borra «pixel» 

código máquina en 
BASIC 

convierte caracteres 
numéricos a su ac- 
tual valor numérico 
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Apéndice B: S/MBOLOS GRAFICOS PARA LA T/S 1000 


Los siguientes símbolos gráficos están disponibles en 
la T/S 1000. Por favor, fíjese que en esta lista cada sím- 
bolo está «metido en un recuadro», esto significa que 
aunque los cuatro bordes del cuadro son mostrados 
aquí, dichos bordes no aparecerán en la pantalla. (Por 
ejemplo, el primero de todos los símbolos aquí listados 
aparecerá en la pantalla sencillamente como un espacio, 
y no como un recuadro vacio.) También debería tenerse 
en cuenta que las letras en vídeo-inverso son también 
accedidas a través del modo![8. 


Símbolo Modo Clave Símbolo Modo Clave 
[| o MM SPACE 1 SPACE 
a] shifted-1 ne shifted-Q 
L shifted-2 es shifted-W 
ma shifted-7 e shifted-6 
= shiñted-4 — MY shifted-R 
A shifted-5 A shifted-8 
ae shifted-T a shifted- Y 
a shifted-E Pr shifted-3 
EEE Shifted-A ES shifted-H 
besa] shifted-D bese shifted-G 
pee shifted-S eS shifted-F 
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Apéndice C: £l TECLADO DE LA 7T/S 1000 


di 


REM RAN 


ER AS E e 
Ta Yi 


1 CT SLO! FAST [Ta : + = Meuncrion 
LL [cal sm 
E 


sr 
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Apéndice D: UNA COP/A EXTRA DEL PROGRAMA 7, 
«COPY CAT» (MONO DE IMITACION) 


Esta es una copia extra del programa 1, «COPY 
CAT». Puede arrancarla del libro y marcarla con sus 
propias anotaciones según se siguen las «Notas sobre el 
teclado» del capítulo 1. 


Programa 1: «COPY CAT» (Mono de Imitación) 


100 
105 
110 
120 
125 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 


LET X$="ASDFGHJKL" 

LETT=0 

LET N=0 

PRINT AT 3,12" 
LET YS=X$(INT (RND*9+1)) 
LET N=N+1 

PRINT AT 11,15:Y8 

PAUSE 150-N 

PRINTAT 11,15:"_" 

IF INKEYS=YS THEN GOTO 200 
PRINT AT 19,5:"HA_FALLADO;_ERA_ (":Y$;")" 
STOP 

LET T=T+1 

PRINT AT 21,15:T 

GOTO 125 
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